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;

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

相关推荐

评论