Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#2

Re: Byte in Mega- und Kilobyte umwandeln

  Alt 8. Mai 2005, 16:33
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]
  Mit Zitat antworten Zitat