Zahlen im String: Formatierung

[marabu]

Guten Morgen,

wenn es sich um Ganzzahlen ohne Vorzeichen mit mehr als 20 Stellen handelt, dann würde ich es mit einer eigenen Funktion erledigen:

Delphi-Quellcode:

function FormatNumber(const s: String; const tsep: Char): String;
var
  i, iPos, nSep, nHead: Integer;
begin
  if s = '' then Result := '' else
  begin
    nSep := Pred(Length(s)) div 3;
    SetLength(Result, Length(s) + nSep);
    nHead := Succ(Pred(Length(s)) mod 3);
    if nHead > 0 then
      Move(s[1], Result[1], nHead);
    for i := 0 to Pred(nSep) do
    begin
      iPos := Succ(nHead) + i shl 2;
      Result[iPos] := '.';
      Move(s[Succ(nHead) + i * 3], Result[Succ(iPos)], 3);
    end;
  end;
end;

Die Funktion erwartet eine normalisierte Darstellung. Vorzeichen und führende Nullen können leicht noch berücksichtigt werden.

Grüße vom marabu