Essa função não considera número negativo ?
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Nicolas
Enviada em: sexta-feira, 25 de julho de 2008 16:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] duvidas sobre strings
2: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'
;
Break;
end;
end;
[]s
Alexandre
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 25, 2008 3:43 PM
Subject: RE: [delphi-br] duvidas sobre strings
Em qual unit tá definida essa função? Já revirei o help
Em qual unit tá definida essa função? Já revirei o help do Delphi de cabo a
rabo e num achei nada!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 25 Jul 2008 15:39:42 -0300
Subject: Re: [delphi-br] duvidas sobre strings
Ops,
é
Ops,
é isnumeric( )
alexandre
- Original Message -
From: fabio giro
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 25, 2008 3:32 PM
Subject: Re: [delphi-br] duvidas sobre strings
Onde está a função IsNumber?
--- Em sex, 25/7/08, Nicolas <[EMAIL PROTEC
Onde está a função IsNumber?
--- Em sex, 25/7/08, Nicolas <[EMAIL PROTECTED]> escreveu:
De: Nicolas <[EMAIL PROTECTED]>
Assunto: Re: [delphi-br] duvidas sobre strings
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 25 de Julho de 2008, 14:11
e eu ainda acrescentaria:
bject: Res: [delphi-br] duvidas sobre strings
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 J
for i := 1 to Length(Edit.Text) do
begin
if not (ord(Edit.Text[i]) in [48..57]) then // 0 a 9 em ASCII
begin
ShowMessage('Caractere não numérico: '+Edit.Text[i]);
break;
end;
end;
2008/7/25 Leonardo Baldino <[EMAIL PROTECTED]>:
> eu tenho um edit e eu preciso verificar se tod
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 so
eu tenho um edit e eu preciso verificar se todos os espaço disponivel dentro
do edit foi preenchido por numero inteiros, por isso eu gostaria de saber se
alguem sabe como eu posso fazer isso
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram remo
10 matches
Mail list logo