Añadir separador de millares a un número

4926 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;