怎么判断一个文件为空？

Question

我想判断一个文件是否为空，然后做一些操作
if 文件为空 then
begin
......
end;
可是我不懂用什么函数？各位帮帮忙，顺便再告诉我一些常用的文件函数
小弟感激不尽！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
f:file of byte;
size:longint;
begin
if OpenDialog1.execute
 then begin
        assignfile(f,OpenDialog1.filename);
        reset(f);
        size:=filesize(f);
        edit1.text:=inttostr(size);
        closefile(f);
      end;
end;

Answer 2

esu(ESU):if OpenDialog1.execute这一句是什么意思啊？看不大懂，请指点

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
f:file of byte;
size:longint;
begin
if OpenDialog1.execute
 then begin
        assignfile(f,OpenDialog1.filename);
        reset(f);
        size:=filesize(f);
        if size=0 then.....;
        closefile(f);
      end;
end;

Answer 4

OpenDialog1.execute是打开对话框，叫你选择文件

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
f:file of byte; ///定义二进制文件
size:longint;   ///定义长整数类型
begin
//f文件对象要创建
if OpenDialog1.execute  //对话框执行，让你选择文件如果选择了文件为真，否则为假
 then begin
        //在属性类表中可以设置文件过滤，也可以动态设置
        assignfile(f,OpenDialog1.filename);//关联文件与文件操作对象
        reset(f);  //使文件指针定位在文件头
        size:=filesize(f); //得到文件的大小，按字节
        if size=0 then.....; //如果文件为空，执行你想要的
        closefile(f);   //关闭文件。
      end;
//f文件对象要销毁
end;