Nein, habe ich nicht. Aber hast du eine Festplatte im Terabytebereich?
Wenn es bis 1000 Gibabyte reicht, dann geht auch das:
Delphi-Quellcode:
function FormatDiskSpace(DiskSpace: Int64): string;
begin
case DiskSpace of
0..1023: result := Format('%d byte', [DiskSpace]);
1024..1048576: result := Format('%2n KB', [DiskSpace / 1024]);
1048577..1073741824: result := Format('%2n MB', [DiskSpace / 1024 / 1024]);
else
result := Format('%2n GB', [DiskSpace / 1024 / 1024 / 1024]);
end;
end;
@axel: Deine 3309918640128 (ich habe noch mal 1024 genommen, um Byte zubekommen) macht meiner Version anstandslos mit.
Zitat:
---------------------------
Project1
---------------------------
3.082,60 GB
---------------------------
OK
---------------------------