retorna com erro ao converter StrtoInt

[helcastro]

:wacko:

No componente Edit ou qualquer outro que que trabalha com string, ao converter para Integer um valor diferente de numeral a aplicação retorna com erro de incompatibilidade de tipo. Como poderia efetuar uma comparação no valor do componente antes de efetuar a converção de tipo? O Edit deverá aceitar somente a entrada de inteiros.

editei as seguintes linhas

if (Edit1.Text = '') or (Edit1.Text = "abcdef') or .... or....

then

Edit1.SetFocus;

Nessa condição é inviavel, haveria necessidade de comparar n possibilidade de valores no componente.

[Mnemonic]

begin
  try
    A := StrToInt('$FG');    // 'G' é um valor hexadecimal inválido
  except
    on Exception : EConvertError do
      ShowMessage(Exception.Message);
  end;
end;

Ok, eu não entendo muito de delphi, mas por esse exemplo aí de cima, dá pra sacar que a função StrToInt retorna exceções se ela não conseguir converter. Então, pro uso que você quer fazer, acho que basta usar os Edit.Text assim:

try
    A := StrToInt('xyz');
    //seu codigo que muda os Edits aqui
        Edit.Text = A;
    //o programa só vai chegar aqui se o StrToInt alí de cima tiver funcionado
    //caso contrário ele vai direto pra exception aqui de baixo
except
    ...

Editado Julho 2, 2009 por Mnemonic

[Daniel Sanches]

try StrToInt(Edit1.Text)
except on E: Exception do
   begin
         ShowMessage('Valor digitado não é inteiro.');
         Edit1.SetFocus;
   end;
end;

abraços !!!