如何判断是否assign了文件？

[zoologist]

简单的程序：
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
AssignFile(DealFile,Opendialog1.FileName);
Reset(DealFile);
end;
end;

我的问题是：如果我打开选择文件对话框后，并不选择任何文件。

是否有办法通过判断DealFile这个变量来确定是否assign了文件？

谢谢！

[VIP_Rainbow]

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
AssignFile(DealFile,Opendialog1.FileName);
Reset(DealFile);
end;
else
showmessage('请选择文件');
end;

[zoologist]

这样的话，也并没有判断啊？

我的意思是要直接判断 DealFile，而不是通过OpenDialog

[bdmh]

已经打开的文件变量,如果再次使用AssignFile,就会出错,你可以再次AssignFile,捕获错误,^_^,方法有点...

[ljluck7687]

if DealFile<>nil then
closefile(DealFile);

AssignFile(DealFile,FName);
Reset(DealFile);

[zoologist]

if DealFile <>nil then //编译不通过，提示 类型不匹配

[pathletboy]

var
R: TTextRec absolute DealFile;
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if OpenDialog1.Execute then 
      begin 
        AssignFile(DealFile,Opendialog1.FileName); 
        Reset(DealFile); 
        if R.Handle > 0 then
           ShowMessage('文件已经打开');        
      end; 
end

;

[ljluck7687]

[Quote=引用 5 楼 zoologist 的回复:]
if DealFile <>nil then //编译不通过，提示 类型不匹配

[/Quote]

不好意思

如果不通过打开对话框，那么只能通过置标志来判断了

[ahjoe]

不好办了。DealFile是个结构体。
Delphi 5.0
sozeof(File) 得到 332
sozeof(TextFile) 得到 460

另外用个标志变量，与DealFile同步修改吧。

[pathletboy]

用这个也行。2个结构差别在后面。

var
R: TFileRec absolute DealFile;
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if OpenDialog1.Execute then 
      begin 
        AssignFile(DealFile,Opendialog1.FileName); 
        Reset(DealFile); 
        if R.Handle > 0 then
           ShowMessage('文件已经打开');        
      end; 
end;

2个结构

  TFileRec = packed record (* must match the size the compiler generates: 332 bytes *)
    Handle: Integer;
    Mode: Word;
    Flags: Word;
    case Byte of
      0: (RecSize: Cardinal);   //  files of record
      1: (BufSize: Cardinal;    //  text files
          BufPos: Cardinal;
          BufEnd: Cardinal;
          BufPtr: PChar;
          OpenFunc: Pointer;
          InOutFunc: Pointer;
          FlushFunc: Pointer;
          CloseFunc: Pointer;
          UserData: array[1..32] of Byte;
          Name: array[0..259] of Char; );
  end;

{ Text file record structure used for Text files }
  PTextBuf = ^TTextBuf;
  TTextBuf = array[0..127] of Char;
  TTextRec = packed record (* must match the size the compiler generates: 460 bytes *)
    Handle: Integer;       (* must overlay with TFileRec *)
    Mode: Word;
    Flags: Word;
    BufSize: Cardinal;
    BufPos: Cardinal;
    BufEnd: Cardinal;
    BufPtr: PChar;
    OpenFunc: Pointer;
    InOutFunc: Pointer;
    FlushFunc: Pointer;
    CloseFunc: Pointer;
    UserData: array[1..32] of Byte;
    Name: array[0..259] of Char;
    Buffer: TTextBuf;
  end;

[ahjoe]

楼上的同志很棒。