Como saber se � um numero

Question

Ai galera tudo j�ia.Algu�m sabem me dizer como fa�o pra saber se um determinado valor gravado dentro de um string � um n�mero?...

Emerson E Nascimento · Accepted Answer

h� varias formas. uma delas:try&nbsp &nbsp StrToFloat( Valor );&nbsp &nbsp ShowMessage(�� num�rico�);   except&nbsp &nbsp ShowMessage(�N�o � num�rico�);   end;...

Weber · Answer

[code:1:56e2280973]var  Variavel: Shortstring;  heNumero: Currency;  lNumero: boolean;begin  Try    heNumero := StrToCurr(Trim(Variavel);    lNumero := True;  except    lNumero := False;  end;end;[/code:1:56e2280973]N�o testei mas acho que deve funcionar....

Mitsalito · Answer

Galera foi mau me precipitei ao perguntar devia ter tentado antes, mas j� que enchi o saco uma possivel resposta

if (not(Valor[i] in [�0� .. �9�, #8])) then
begin
resultado := n�o num�rico;

Marco Salles · Answer

[quote:44e061f87d]Galera foi mau me precipitei ao perguntar devia ter tentado antes, mas j� que enchi o saco uma possivel resposta if (not(Valor in [�0� .. �9�, #8])) then begin resultado := n�o num�rico;[/quote:44e061f87d]No meu entendimento, isto n�o e bem assim :cry: 1) Voce tem que varrer a String Valor :idea: 2) o [b:44e061f87d]decimal Separador [/b:44e061f87d]na  sua rotina nao esta incluido :cry:    quer dizer que [b:44e061f87d]10,00 n�o e um n�mero?????[/b:44e061f87d] :?:  :?:  :?:...

Weber · Answer

[quote:6aa06b7fa6=�emerson.en�]try� � StrToFloat( Valor );� � ShowMessage(�� num�rico�);   except� � ShowMessage(�N�o � num�rico�);   end;[/quote:6aa06b7fa6]A melhor forma � essa, a prova de falhas....

Mitsalito · Answer

meu amigo substitui o #8 por �,�...

Paulo_amorim · Answer

[quote:343e452cee=�weber�][quote:343e452cee=�emerson.en�]try    StrToFloat( Valor );    ShowMessage(�� num�rico�);   except    ShowMessage(�N�o � num�rico�);   end;[/quote:343e452cee]A melhor forma � essa, a prova de falhas.[/quote:343e452cee]Ol�Na realidade, h� casos em que o bloco try..except falha, n�o sei o motivo... j� ouvi v�rias recomenda��es de que se fa�a o teste caracter por caracter como o Mitsalito mandou.Com um detalhe: incluir DecimalSeparator e ThousandSeparatorAt�+...

Massuda · Answer

N�o tenho n�meros para verificar, mas acho que a vers�o que gera exce��o �, em termos de desempenho, muito pior do que a vers�o que testa caractere por caractere no caso de receber uma string que n�o contenha um n�mero v�lido. Dependendo da situa��o, isso pode fazer diferen�a.

Marco Salles · Answer

[quote:dff3edc143]meu amigo substitui o #8 por �,�[/quote:dff3edc143]Tb acho que nao e assim :cry: Se o [b:dff3edc143]Decimal Separador[/b:dff3edc143] Escolhido No [b:dff3edc143]S.O[/b:dff3edc143] For Um Ponto No Lugar Da Virgula voce nao ter� exito... Acho que � assim :[code:1:dff3edc143]function Verificar(Valor:String):Boolean;vari:Integer;beginresult:=True;for i:=1 to Length(valor) do  begin    if (not(valor&91;i&93; in &91;�0� .. �9�,DecimalSeparator&93;)) then      begin         result :=false;         exit;      end;  end;end;[/code:1:dff3edc143]...

Thomaz_prg · Answer

Se a vers�o do delphi for 6 ou acima vc pode tentar assim:var  v:RealIF TryStrToFloat( edit1.text , v )   showmessage(�� um n�mero�)ELSE  Showmessage(�N�o � um n�mero�);...

Jos� Henrique · Answer

No Delphi 5 tem
function StrToIntDef(const S: string; Default: Integer): Integer;

que retorna o Default caso S n�o seja integer.

var
  Number: Integer;
begin
  Number := StrToIntDef(Edit1.Text, 0);
  if Number = 0 then
 // � n�mero inteiro
  else
 // n�o �

end;

Henrique.

F�rum Como saber se � um numero #259033