那位大侠帮我看一下,错误出在那里哟!

Question

var f:file of byte;
    size:longint;
    ....
begin
    ....
    assignfile(f,curfilename);
    size:=filesize(f);
    label1.caption:=inttostr(size);
    ....
end;
程序运行到这里时总是要报错:project bb.exe raised exception calss EInOutError with message 'I/O error 103' 我看帮助里的例程和这个差不多呀!
帮帮忙了!

Answer 1

var f:file of byte;
    size:longint;
begin
   if FileExists(curFileName) then
   begin
    assignfile(f,curFileName);
    size:=filesize(f);
    caption:=inttostr(size);
    closefile(f);
   end;
end;

Answer 2

你可以去查下错误号呀,'I/O error 103' 
'I/O error '是不是有程序在使用此文件?

Answer 3

I/0 error 103 是文件没有打开

Answer 4

genphone_ru(改行去学VC）的程序应该没问题
也许问题不是出在这里

Answer 5

procedure TForm1.Button4Click(Sender: TObject);
var f:file of byte;
    size:longint;
    filename:string;
begin
   filename:='PPselect.exe';
   if FileExists(filename) then
   begin
    assignfile(f,FileName);
    reset(f);                 //加入本语句,D6下调试运行通过!!你可以看看
    size:=filesize(f);
    showmessage(inttostr(size));
    closefile(f);
   end;
end;

Answer 6

'I/O error 103' 是文件没打开
'I/O error 32'  是文件正在背使用!其他的错误可以参见D6帮助,