Verificar conteúdo de um textbox

[FabioRubim 0]

Olá, como faço para verificar se o conteúdo de um textbox contém somente números ou texo?? não achei nada como isnumeric como no vb ou isdate e etc....obrigado!

[Hugo Slepicka 0]

VocÊ pode fazer Tentando converter o texto para número:

procedure TForm1.Button1Click(Sender: TObject);var numero : Double;begin  try	 numero := StrToFloat(Edit1.Text);	 Showmessage('Tem apenas números');  except	 showmessage('Não tem apenas números....!');  end;end;

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Rodrigo Miss 1]

Opa!

sei q todo o programador de VBScript sente mta falta do IsNumeric em outras linguagens hehehe. você poder fazer sua propria funcao:

 

function IsNumeric(const S: string):Boolean;var   i: SmallInt;begin   Result:= True;      for i:= 1 to Length(S) do   begin	  if not (S[i] in['0'..'9']) then	  begin		 Result:= False;		 Break;	  end;   end;   end;

Invocando a função:

if (IsNumeric(Edit1.Text)) thenbegin   showmessage('é numero!');end;

[Renanbg 1]

Tentei usar essa function mas da o seguinte erro:function needs result typealguma ideia?

[Hugo Slepicka 0]

function IsNumeric(const S: string) : Boolean;var   i: SmallInt;begin   Result:= True;      for i:= 1 to Length(S) do   begin	  if not (S[i] in['0'..'9']) then	  begin		 Result:= False;		 Break;	  end;   end;   end;

[Renanbg 1]

Só mais uma dúvida, nesse código ele verifica se é numero

 

if (IsNumeric(Edit1.Text)) thenbegin   showmessage('é numero!');end;

gostaria de ele verificar se n é numero apenas

 

como eu mudo essa linha cima?

[Hugo Slepicka 0]

Mas é exatamente essa a comparação que ele faz no IF... http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

 

//Se for apenas número... então...if (IsNumeric(Edit1.Text)) thenbegin	// Faz a rotina...end;

[Renanbg 1]

Assim

 

if (IsNumeric(Edit1.Text)) thenbegin   showmessage('é numero!');   end   else   showmessage('Não é numero!');end;

[Hugo Slepicka 0]

Exatamente http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Renanbg 1]

beleza...valew

[Rodrigo Miss 1]

hehe... eita !isto ae msm .!!!desculpa aew galera! tanta correria q acabei esquecendo de colocar o tipow de retorno na funcao ehehemals aew pessoal (Já editei o post acima)...

[FabioRubim 0]

Ok pessoal, muito obrigado, é só na unha mesmo então..... tem como ao invés de eu fazer

(S[i] in['0'..'9'])

fazer algo como

(S[i] in [integer])

...algo do tipow +-, usando o próprio conjunto do tipo de dados,pois desse jeito não deu certo...

 

obrigado!

[Rodrigo Miss 1]

pq naum funciona??acabei de testar aki e funciono beleza!qual o erro?

[FabioRubim 0]

Owww, desculpa;;; achei o que estava fazendo, eu estava procurando uma string em um tipo char.....desculpa ai e obrigado!

[Rodrigo Miss 1]

heh q nda .... acontece ...

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif