|
Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: Dateigröße formatieren?
25. Nov 2005, 16:35
Mach eine Funktion FileSizeToStr:
Delphi-Quellcode:
function FileSizeToStr(size:int64):string;
begin
if size < 1024 then result := inttostr(size)+'Byte';
if (size > 1024) and (size < 1024*1024) then result := formatfloat('0.00',size/1024)+'KB';
if (size > 1024*1024) and (size < 1024*1024*1024) then
result := formatfloat('0.00',size/1024/1024)+'MB';
if (size > 1024*1024*1024) then
result := formatfloat('0.00',size/1024/1024/1024)+'GB';
end;
Hoffe das hilft...
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
|