小问，在线等待

如何判断一个文件是否为空？  
  有没有什么求文件大小的函数？  
   
  我打开一个空文件，为什么FEOF(FP)为假? 问题点数：50、回复次数：2Top

1 楼foreveryday007（有無數種方法可以浪費一天的時間…但是…）回复于 2002-08-19 09:19:40 得分 25

//我自己寫的  
  function   GetFileSize(const   FileName:   string):   LongInt;  
  var  
      SearchRec:   TSearchRec;  
  begin  
      if   FindFirst(ExpandFileName(FileName),   faAnyFile,   SearchRec)   =   0   then  
          Result   :=   SearchRec.Size  
      else   Result   :=   -1;  
  end;Top

2 楼eulb（执子之手,与子偕老）回复于 2002-08-19 10:02:33 得分 25

推荐用楼上的  
  因为连delphi自己也是这么来得到文件大小的  
   
  当然你也可以用GetFileSizeTop

相关问题

• 文件
• searchrec
• getfilesize
• 大小
• filename
• result

• 帖主：fldx
• foreveryday007
• eulb

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载