Añadir separador de millares a un número

Artículo por Club Developers · 31 December 2005

5218 vistas

Basta con usar la función FormatFloat



delphi
  1.    procedure TForm1.Button1Click(Sender: TObject);
  2.    var 
  3.       i: integer;
  4.    begin 
  5.      i := 2538456;
  6.      Label1.Caption := FormatFloat('#,', i);
  7.    end;