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]