[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]

This function will add commas to a longint.

function FormatNumber(l: longint): string;
var
  len, count: integer;
  s: string;
begin
  str(l, s);
  len := length(s);
  for count := ((len - 1) div 3) downto 1 do
    begin
      insert(',', s, len - (count * 3) + 1);
      len := len + 1;
    end;
  FormatNumber := s;
end;

And if you are using Delphi, there is, of course, the easy way:

function FormatNumber(l: longint): string;
begin
  FormatNumber := FormatFloat('#,##0', StrToFloat(IntToStr(l)));
end;

[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]