问个最幼稚的问题，怎样用opendialog控件来得到文件名，假如我想通过选择来得到c:\aa.doc的文件名，让a的值等于c:\aa.doc，看我的代码有

Question

你们试了吗？我试了不好使！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var
  F: Textfile;
begin
  OpenDialog1.Title := 'Delete File';
  if OpenDialog1.Execute then begin
    AssignFile(F, OpenDialog1.FileName);
    try
      Reset(F);
      if MessageDlg('Erase ' + OpenDialog1.FileName + '?',
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
        CloseFile(F);
        Erase(F);
      end;
    except
      on EInOutError do        MessageDlg('File I/O error.', mtError, [mbOk], 0);
    end;
  end;
end;