delphi - 如何测试文件是否为空

Question

我想检查文件是否存在以及是否存在是否为空。

我可以处理文件存在；

if FileExists(fileName) then

else
   ShowMessage('File Not Exists');

如何测试空文件？

Answer 1

正如@TLama 建议的那样，如果找到文件并且大小为零，则以下函数将返回 true。

function FileIsEmpty(const FileName: String): Boolean;
var
  fad: TWin32FileAttributeData;
begin
  Result := GetFileAttributesEx(PChar(FileName), GetFileExInfoStandard, @fad) and
            (fad.nFileSizeLow = 0) and (fad.nFileSizeHigh = 0);
end;