Array
(
)

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

Chip_set
   - 27 dez 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.


Caninha51
   - 27 dez 2005

Eh, ele naum aceita o ponto como separador.

Tenta...
#Código

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


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


flw