40yahoogrupos.com.br>
Data: Sexta-feira, 25 de Julho de 2008, 14:11
e eu ainda acrescentaria:
if (isnumber(Edit1. text) ) and (Length(Edit1. text)=Edit1. MaxLenght) then
showmessage( 'é igual´);
[]s
alexandre
- Original Message -
From: Luciano Calenzani Simões
To: [EMAIL PR
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:
if Length(Trim(Edit1.Tex)) = Edit1.MaxLength then
showmessage('É igual!')
Luciano Calenzani Simões
- Mensagem original
De: Leonardo Baldino <[EMAIL PROTECTED]>
Para: Grupo_Delphi
Enviadas: Sexta-feira, 25 de Julho de 2008 10:12:01
Assunto: [delphi-br] duvidas sobre strings
eu
3 matches
Mail list logo