Delphi Format funktion mit Int64

Thema durchsuchen

Ansicht

Themen-Optionen

Format funktion mit Int64

Ein Thema von ErazerZ · begonnen am 21. Jun 2005 · letzter Beitrag vom 21. Jun 2005

Vorheriger Beitrag

Nächster Beitrag

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge

Re: Format funktion mit Int64

21. Jun 2005, 16:04

So schaut es netter aus:

zusammenfalten · markieren

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