delphi 获取文件大小根据显示GB MB KB B

function GetFileSize(const FileName : string): DWORD;

var

f : integer;

begin

f := FileOpen(FileName, fmOpenRead);

try

Result := Windows.GetFileSize(f, nil);

finally

FileClose(f);

end;

if Result = $FFFFFFFF then Result := 0;

end;

function CalcFileSizeStr(const Size : DWORD): string;

const

GB = 1024*1024*1024;

MB = 1024*1024;

KB = 1024;

begin

if Size > GB then

Result := Format('%%.2f GB', [Size / GB])

else if Size > MB then

Result := Format('%.2f MB', [Size / MB])

else if Size > KB then

Result := Format('%.2f KB', [Size / KB])

else

Result := Format('%d B', [Size]);

end;

function GetFileSizeStr(const FileName : string): string;

var

Size: DWORD;

begin

Size := GetFileSize(FileName);

Result :=CalcFileSizeStr(Size);

end;

推荐分享