Mais fácil fazer assim:
if StrToIntDef(Edti1.Text, -1) = -1 then
showmessage('erro! não é numerico!');
Luciano Calenzani Simões
----- Mensagem original ----
De: Nicolas <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 25 de Julho de 2008 16:02:22
Assunto: Re: [delphi-br] duvidas sobre strings
Desculpe pessoal,
de tanto usar já tava achando que era função nativa,
tá aqui o fonte da função:
Function IsNumeric(const s: string): boolean;
var
i: integer;
begin
Result := True;
for i:=1 to length(s) do
if not (s[i] in ['0'..'9']) then
begin
Result := False;
Break;
end;
end;
[]s
Alexandre
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
