Isso acontece porque quando o valor tem . ai ele da erro ao
converter...
Function retiraponto ( v : String ) : String ;
Var
X : Integer
;
Begin
Result := ;
For x := 1 to length(V) do
If V[x] <> . Then
Result :=
Result + V[x] ;
End;
Usa assim
No Onexit
If Edit.text <> then
Begin
Edit1.text :=
FormatFloat(###,#0.00,StrToFloat(Retiraponto(edit1.text)));
End;
Acho que isso vai resolver o seu problema
.
Wesley
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de itasouza
Enviada em: segunda-feira, 10 de dezembro de 2007 13:12
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Usando o onExit - Erro - is not a valid floating point
value
Boa Tarde a todos
Pessoal, veja se pode me ajudar..
No onExit de um de dois edits tenho o seguinte código:
VerificarCampos;
editTotal.text := floattostr(strtofloat(editPaletes.text) +
strtofloat(editQtde.text));
o sistema está gerando erro ao sair dos edits, então fiz um teste no
campo:
procedure TfrmLancamento.VerificarCampos;
begin
//1º teste
if (EditPaletes.Text = '') and
(EditQtde.Text = '') then
begin
if Application.MessageBox('O campo está vazio, Deseja
manter?','Confirme',MB_YESNO+ MB_ICONQUESTION)= MRYES then
begin
EditPaletes.SetFocus;
Exit;
end;
end
end;
Mais está gerando o mesmo erro.
Project SisCont.exe raised exception class EConvertError with
message" is not a valid floating point value'. Process stopped. Use
or Run to continue.
Alquem poderia me ajudar!!
Agradeço!!
[As partes desta mensagem que não continham texto foram removidas]
