quarta-feira, 2 de setembro de 2009

Formatando casas decimais

Procedure TForm1.Button1Click(Sender: TObject);
var
num : integer;
begin
num:=12450;
Edit1.text:=formatfloat('###,###,##0.00', num)
end;

Nenhum comentário:

Postar um comentário