FileSizeByName

取文件大小 
      FileSizeByName(需要引用IdGlobal单元) 
      GetFileSize 
      FileSize(不能获得正在使用的文件大小) 
      FileSeek 
      TFileStream.Size 
  
  下面是使用例子 
  1。FileSizeByName(需要引用IdGlobal单元) 
  begin 
      if   OpenDialog1.Execute   then 
      begin 
          ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename))); 
      end; 
  
  2。GetFileSize 
  var 
      FileHandle:integer; 
  begin 
      if   OpenDialog1.Execute   then 
      begin 
          FileHandle   :=   FileOpen(OpenDialog1.FileName,   0); 
          ShowMessage(IntToStr(GetFileSize(FileHandle,   nil))); 
          FileClose(FileHandle); 
      end; 
  
  3。FileSize(不能获得正在使用的文件大小) 
  var   f:   file; 
  begin 
      if   OpenDialog1.Execute   then 
      begin 
          AssignFile(f,   OpenDialog1.FileName); 
          Reset(f,   1); 
          ShowMessage(IntToStr(FileSize(f))); 
          CloseFile(f); 
      end; 
  
  4。FileSeek 
  var 
      FileHandle:integer; 
  begin 
      if   OpenDialog1.Execute   then 
      begin 
          FileHandle   :=   FileOpen(OpenDialog1.FileName,   0); 
          ShowMessage(IntToStr(FileSeek(FileHandle,0,2))); 
          FileClose(FileHandle); 
      end; 
  
  5。TFileStream.Size 
  var 
      FS:   TFileStream; 
  begin 
      if   OpenDialog1.Execute   then 
      begin 
          FS   :=   TFileStream.Create(OpenDialog1.FileName,   fmShareDenyNone); 
          ShowMessage(IntToStr(FS.Size)); 
          FS.Free; 
      end;

 

 

 

发布了216 篇原创文章 · 获赞 15 · 访问量 39万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览