Delphi 获得文件大小的五种方法
Delphi 获得文件大小的方法 大概有这些:
- FileSizeByName(需要引用IdGlobal单元)
- GetFileSize
- FileSize(不能获得正在使用的文件大小)
- FileSeek
- TFileStream.Size
使用例子 :
1、FileSizeByName(需要引用IdGlobal单元)
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;
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; 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; 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; end;
另在IdGlobalProtocols中有个FileSizeByName()的函数。
创建时间:2015-05-01 更新时间:2020.01.02
来源于:https://www.cnblogs.com/guorongtao/p/4470185.html