Buscar por:
Código Procedure TForm1.Button1Click(Sender: TObject); var num : integer; begin num:=12450; Edit1.text:=formatfloat('###,###,##0.00', num) end;
Procedure TForm1.Button1Click(Sender: TObject); var num : integer; begin num:=12450; Edit1.text:=formatfloat('###,###,##0.00', num) end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009