Ganzzahl mit Tausendertrennzeichen

[Cuchulainn]

Diese Funktion erwartet eine Ganzzahl und gibt diese als String mit Tausendertrennzeichen zurück:

Delphi-Quellcode:

function FFormatiereInteger(IntZahl: Integer): String;
var StrZahl: String;
    IntIndex: Integer;
begin
  StrZahl := IntToStr(IntZahl);
  IntIndex := 3;
  while Length(StrZahl) > IntIndex do
  begin
    Insert('.', StrZahl, Length(StrZahl) - IntIndex + 1);
    Inc(IntIndex, 4);
  end;
  Result := StrZahl;
end;