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;

[Christian Seehase]

Moin Cuchulainn,

was gefällt Dir an Format nicht?

Ggf. solltest Du aber ThousandSeparator statt . verwenden.
Dann wird das ganze sprachunabhängig.

[Cuchulainn]

Hallo,

an Format habe ich gar nicht gedacht