Delphi Byte in Mega- und Kilobyte umwandeln

Thema durchsuchen

Ansicht

Themen-Optionen

Byte in Mega- und Kilobyte umwandeln

Ein Thema von tobias2207 · begonnen am 8. Mai 2005 · letzter Beitrag vom 8. Mai 2005

Antwort

mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge

Delphi 2010 Professional

Re: Byte in Mega- und Kilobyte umwandeln

8. Mai 2005, 15:36

Ich werfe mal diese Funktion in den Raum:

zusammenfalten · markieren

Delphi-Quellcode:

			// by Luckie

function FormatDiskSpace(DiskSpace: Int64): string;

begin

  case DiskSpace of

    0..1023: Result := Format('%d Byte', [DiskSpace]);

    1024..1048575: Result := Format('%2n KB', [DiskSpace / 1024]);

    1048576..1073741823: Result := Format('%2n MB', [DiskSpace / 1024 / 1024]);

  else

    Result := Format('%2n GB', [DiskSpace / 1024 / 1024 / 1024]);

  end;

end;