Mensagem de Erro.....
A mensagem de erro é esta abaixo :
is not a valid floating point value !
e a procedure que estou usando é esta:
procedure TfrmContrato.editconvalorExit(Sender: TObject);
begin
editconvalor.Text := FormatFloat(´#,0.00´,StrToFloat(editconvalor.Text)) ;
end;
no edit esta aparecendo: 25,25, mas no banco esta gravando 25.25, como evitar...?
is not a valid floating point value !
e a procedure que estou usando é esta:
procedure TfrmContrato.editconvalorExit(Sender: TObject);
begin
editconvalor.Text := FormatFloat(´#,0.00´,StrToFloat(editconvalor.Text)) ;
end;
no edit esta aparecendo: 25,25, mas no banco esta gravando 25.25, como evitar...?
Martelato
Curtidas 0
Respostas
Okama
01/07/2003
Trabalhar com float sempre foi um inconveniente.
O problema ocorre com as configurações regionais do windows que definem ´.´ ou ´,´ para decimais e o Delphi só aceita ´.´
Ex.
Var: S:String;
F: Double;
Begin
While pos(´,´,S) >0 do //Troca ´,´ por ´.´
S[Pos(´,´,S)] := ´.´;
Try
F:= StrToFloat(S);
Except On EConvertError do
F:= 0;
end;
PS: Lembre-se de NÃO usar separador de milhar ao converter para float.
O problema ocorre com as configurações regionais do windows que definem ´.´ ou ´,´ para decimais e o Delphi só aceita ´.´
Ex.
Var: S:String;
F: Double;
Begin
While pos(´,´,S) >0 do //Troca ´,´ por ´.´
S[Pos(´,´,S)] := ´.´;
Try
F:= StrToFloat(S);
Except On EConvertError do
F:= 0;
end;
PS: Lembre-se de NÃO usar separador de milhar ao converter para float.
GOSTEI 0