Tausender in einem "integer-string" mit Punkt kennzeichnen

[Satty67]

aString := Format('%.0n',[aInteger / 1]); hab' ich von himitsu

meine alte manuelle Methode war:

Delphi-Quellcode:

function FormatInt(Int : Int64) : string;
var
  i : Integer;
begin
  Result := IntToStr(Int);
  i := Length(Result) -3;
  while i > 0 do begin
    Insert(ThousandSeparator, Result, i+1);
    dec(i,3);
  end;
end;