Byte in Mega- und Kilobyte umwandeln

[Die Muhkuh]

Delphi-Quellcode:

function ConvertBytes(Size: Integer): ShortString;
  function ConvertToKB(Size: Integer): Integer;
  begin
    Result := Size div 1024;
  end;

  function ConvertToMB(Size: Integer): Integer;
  begin
    Result := Size div (1024 * 1024);
  end;

  function ConvertToGB(Size: Integer): Integer;
  begin
    Result := Size div (1024 * 1024 * 1024);
  end;
begin
  if Size > 1024 * 1024 * 1024 then
    Result := IntToStr(ConvertToGB(Size)) + ' GB'
  else
  if Size > 1024 * 1024 then
    Result := IntToStr(ConvertToMB(Size)) + ' MB'
  else
  if Size > 1024 then
    Result := IntToStr(ConvertToKB(Size)) + ' KB'
  else
    Result := IntToStr(Size) + ' Bytes';
end;

[edit] Musst nur die Größe der Datei angeben [/edit]
[edit2] Die Größe kannst du so bekommen:

Delphi-Quellcode:

function GetFileSize(Filename: String): Int64;
var
  FS: TFileStream;
begin
  FS := TFileStream.Create(Images.Items[I], fmOpenRead);
  try
    Result := FS.Size;
  finally
    FS.Free;
  end;
end;

Ein Beispiel aufrufe wäre:

StringVar := ConvertBytes(GetFileSize('C:\Test.txt')); [/edit2]