Format Float - O que esta errado ?
09/12/2003
0
procedure Tfrm_baixatec.edit_mtExit(Sender: TObject);
begin
if edit_mt.text <> ´´ then
begin
edit_mt.Text := formatfloat(´#,,0.00´,strtofloat(edit_mt.text));
wsmt := strtofloat(edit_mt.text);
wnovosaldomt := wsaldomt - wsmt;
label14.Caption := formatfloat(´,0.00´,wnovosaldomt);
end;
end;
begin
if edit_mt.text <> ´´ then
begin
edit_mt.Text := formatfloat(´#,,0.00´,strtofloat(edit_mt.text));
wsmt := strtofloat(edit_mt.text);
wnovosaldomt := wsaldomt - wsmt;
label14.Caption := formatfloat(´,0.00´,wnovosaldomt);
end;
end;
Dluca
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)