Delphi判断文件大小

本文整理自网络，侵删。

 Delphi判断文件大小

Delphi自身提供了FileSize函数，例如： 
var 
f: file of Byte; 
size : Longint; 
begin 
AssignFile(f, 'f:\t.exe'); 
Reset(f); 
size := FileSize(f); 
edit1.text := IntToStr(size); 
CloseFile(f); 
end; 
这一种如果判断的文件被其它程序使用，则会报错 I/O Error



下面这种方法相对更好一些
也可以使用下面的方法： 
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; 

相关阅读 >>

Delphi的stringreplace 字符串替换函数

Delphi string内存结构

Delphi 2009 之 tstringbuilder 类[6]: equals

Delphi文本数据导入数据库的方法

Delphi程序不受windows日期格式的影响

Delphi研究之驱动开发篇（二）--工具及环境搭建

Delphi 怎么计算一个memo中输入的汉字数目

Delphi idhttp下载html的代码(含错误处理)

Delphi 如何判断一个exe文件是否运行

Delphi webbrowser ie 窗口选择中，选中的文字内容

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi判断文件大小