assignfile(f,'c:\1.txt') ,怎么判断f是否被assignfile?

Question

如题目?
谢了!assigned(),好像不行啊!

Answer 1

判断这个做什么啊 ？如果你RESET失败就说明没ASSIGNFILE；

Answer 2

try
reset(f1);
except
showmessage
end;

Answer 3

reset过程是为打开文件而把文件指针移动到文件首，如果文件不存在，将会引发一个i/o异常，你在这里进行判断就行了

Answer 4

reset(f1);
输出F1看看就是了

Answer 5

不是，我是想在closefile（）前，判断f是否被assignfile（）
如果，则close 否，则不close;

Answer 6

var  F: file of Byte;
用  {$I-} , reset ,加 IOResult
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(F, OpenDialog1.FileName);
    {$I-}
    Reset(F);
    {$I+}
    if IOResult = 0 then
    begin
      MessageDlg('File size in bytes: ' + IntToStr(FileSize(F)),
        mtInformation, [mbOk], 0);
      CloseFile(F);
    end
    else
      MessageDlg('File access error', mtWarning, [mbOk], 0);
  end;end;

Answer 7

var
  f: TTextFile
  FileHandle:integer;
begin
  FileHandle  :=FileOpen(FileName,fmOpenWrite);
  FileClose(f);
  if FileHandle < 0 then //文件不存在。
  begin
     AssignFile（f，FileName）；
     Rewite（f）；//creat the file;
     write(f,Stringa);
     //
  end else
  begin
     AssignFile（f，FileName）;
     ResetFile(f); 
  end;
end;