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

 

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

----- Original Message ----- 
From: Rubem Nascimento da Rocha 
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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 do Delphi de cabo a 
rabo e num achei nada!
Sds.

________________________________
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
From: [EMAIL PROTECTED] <mailto:nicolas%40qualitysystem.com.br> 
Date: Fri, 25 Jul 2008 15:39:42 -0300
Subject: Re: [delphi-br] duvidas sobre strings

Ops,

é isnumeric( )

alexandre

----- Original Message -----
From: fabio giro
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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 PROTECTED] 
<mailto:nicolas%40qualitysystem.com.br> > escreveu:

De: Nicolas <[EMAIL PROTECTED] <mailto:nicolas%40qualitysystem.com.br> >
Assunto: Re: [delphi-br] duvidas sobre strings
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%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 PROTECTED] os.com.br
Sent: Friday, July 25, 2008 1:47 PM
Subject: 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 
Para: Grupo_Delphi 
Enviadas: Sexta-feira, 25 de Julho de 2008 10:12:01
Assunto: [delphi-br] duvidas sobre strings

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

__________________________________________________________
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br 
<http://mobile.live.com/signup/signup2.aspx?lc=pt-br> 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com <http://www.avg.com>  
Version: 8.0.138 / Virus Database: 270.5.6/1572 - Release Date: 25/7/2008 06:51

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]

Responder a