var sr: TSearchRec; begin if FindFirst('c:\temp\test.dat', faAnyFile, sr) = 0 then sr.size就是指文件的大小。 也可以用下面的方法: var f:file of byte; len:integer; begin assignfile(f,'C:\temp\test.dat'); len:=filesize(f);
function GetFileSize(sFile: string): integer; var st: TStream; begin if not FileExists(sFile) then begin result := 0; Exit; end; st := TFileStream.Create(sFile, fmOpenRead); result := st.Size; st.Free; end;
----------------------------------------------
www.acreport.com