Zitat von
Luckie:
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;
Und genau so reichts auch
- für GB - habe es jetzt ins Prog eingebaut, es funzt prima!!! Danke Luckie
