Format funktion mit Int64

[ErazerZ]

hey,
also ich hab da ein problem mit Format( funktion, ich glaub es liegt an den langen zahlen (Int64), aber ich kann nicht die bytes von zb. 50GB festplatte formatieren, also ich würde es so haben wollen zB von 50237591552 zu 50.237.591.552
aber ich bekomm immer ein fehler

Zitat:

Format '%.n' invalid or incompatible with argument.

mein code um 50237591552 bytes um zu formatieren

Delphi-Quellcode:

var
  UsedB: Int64;
begin
..
frmMain.lblUsed.Caption := Format('%.n Bytes', [UsedB]);

das ganze funktioniert wenn ich mach [UsedB / 1000] - aber ich wills schon genauer haben
hoffentlich kann mir jemand helfen :)

cya

[scp]

Ich glaub da hilft nur IntToStr(), da Format() meines Wissens nicht 64-bit-fähig ist. Auch die API-Funktion wvsprintf() scheint kein 64-bit zu können.

Delphi-Quellcode:

var
  UsedB: Int64;
begin
..
frmMain.lblUsed.Caption := IntToStr(UsedB) + ' Bytes';

[ErazerZ]

ja so hatte ich es auch, jedoch ist das so unübersichtlich

[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

[ErazerZ]

@marabu: danke sehr! aber ich hab auch ne ähnliche funktion geschrieben, deine is aber kleiner :)

cya