Format funktion mit Int64

[marabu]

So schaut es netter aus:

Delphi-Quellcode:

function Format64(z: int64): string;
var
  i: integer;
  neg: boolean;
begin
  neg := z < 0;
  z := abs(z);
  Result := IntToStr(z);
  i := Length(Result) - 2;
  while i > 1 do begin
    Insert(ThousandSeparator, Result, i);
    Dec(i, 3);
  end;
  if neg then
    Result := '-' + Result;
end;

Grüße vom marabu