como testar se um caracter é numero ?

Delphi

04/10/2006

como faço pra testar se um caracter é um numero ?

tipo in [0..9]

o delphi tem alguma coisa já pronta pra isso ?


Fabiano Góes

Fabiano Góes

Curtidas 0

Respostas

Leorez

Leorez

04/10/2006

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;


GOSTEI 0
Marco Salles

Marco Salles

04/10/2006

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´);



GOSTEI 0
Fabiano Góes

Fabiano Góes

04/10/2006

valeu galera !!!!

abraço a todos !!!


GOSTEI 0
Marcelo_mileris

Marcelo_mileris

04/10/2006

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


GOSTEI 0
POSTAR