小编Whi*_*yD5的帖子

我知道我不应该问Peter Peter,但是我在尝试调试一些旧的D5代码时发现了这段代码片段文本文件大小.

在我看来,应该将Sysutils.FindClose称为函数的最后一行.如果结果为零,那是不是建立了FindFirst并挂起？

更多问题:它表明这是针对文本文件的,但是这不能用于任何文件类型吗？一个更好的Delphi.FileSize(fname:string); ？

function TextfileSize(const name: string): LongInt;
var
  SRec: TSearchRec;
begin
  if FindFirst(name, faAnyfile, SRec) = 0 then
  begin
    Result := SRec.Size;
    Sysutils.FindClose(SRec);
  end
  else
    Result := 0;
end;