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

Delphi

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

Chip_set

Curtidas 0

Respostas

Caninha51

Caninha51

27/12/2005

Eh, ele naum aceita o ponto como separador.

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


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


flw


GOSTEI 0
POSTAR