Como fazer para verificar se o que foi digita no edit é floa

27/12/2005

Como fazer para verificar se o que foi digita no edit é float. ou seja como fazer para que o usuário não digite um valor diferente de um float.

eu estou com o seguinte problema no edit eu escrevi ( 4.000,00) na hora de gravar o sistema me informou que era invalido pois não é um compo float, ja
assim (4000,00) funciona.


Chip_set

Respostas

27/12/2005

Caninha51

Eh, ele naum aceita o ponto como separador.

Tenta...
var
  Valor: Real;
begin
  edit1.Text := StringReplace(edit1.Text,´.´,´´,[rfReplaceAll&93;);
  Valor := StrToFloatDef(edit1.Text, 0);
  ...
end;


ou sem mexer no edit...
var
  Valor: Real;
begin
  Valor := StrToFloatDef(StringReplace(edit1.Text,´.´,´´,&91;rfReplaceAll&93;), 0);
  ...
end;


flw


Responder Citar