Format Float - O que esta errado ?
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
Curtidas 0
Respostas
Maicongabriel
09/12/2003
Que tipo de formatação você esta ´tentando´ fazer ?
GOSTEI 0