como testar se um caracter � numero ?

Question

como fa�o pra testar se um caracter � um numero ?tipo in [0..9] o delphi tem alguma coisa j� pronta pra isso ?...

Leorez · Answer

use essa fun��o q serve para todo tipo de teste
function ENumero( cCampo: variant): boolean;
var
TestaNo : real;
begin
try
TestaNo := StrToFloat(cCampo);
Result := true;
except
Result := false;
end;
end;

Marco Salles · Answer

como fa�o pra testar se um caracter � um numero ?

tipo in [0..9]

assim mesmo

if edit1.Text[1] in [�0�..�9�] then showmessage(�� numerico�) else showmessage(�nun � nun�);

o delphi tem alguma coisa j� pronta pra isso ?

delphi 7.o tem

var nun:integer; beginif TryStrToInt(edit1.Text[1],nun) then showmessage(�� numerico�) else showmessage(�nun � nun�);

Fabiano G�es · Answer

valeu galera !!!!abra�o a todos !!!...

Marcelo_mileris · Answer

Agora se vc n�o quer usar o except para verificar pode usar essa fun��o do pr�prio delphi

var
  Code, I : Integer;
begin
  Val(edit1.Text,Code,I);
  if Code > 0 then
    ShowMessage(�Numero�)
  else
    ShowMessage(�Letra�)

Marcelo

F�rum como testar se um caracter � numero ? #330682