一个难题目！

Question

这也叫难题目呀
use OpenDialog

Answer 1

把dialog页上的opendialog控件拖到窗口上，设置相应的属性，调用控件对象的exec方法，文件名有filename属性返回，试试吧！！！

Answer 2

var
  OpenDialog: TOpenDialog;
begin
  OpenDialog := TOpenDialog.Create(nil);
  try
    OpenDialog.Filter:='Paradox files (*.DB)|*.DB';
    if OpenDialog.Execute then
    begin
       .....
    end;
  finally
    OpenDialog.Free;
  end;

Answer 3

var
  OpenDialog: TOpenDialog;
begin
  OpenDialog := TOpenDialog.Create(nil);
  try
    OpenDialog.Filter:='Paradox files (*.DB)¦*.DB';
    if OpenDialog.Execute then
    begin
      Edit1.text:=OpenDialog.FileName; 
    end;
  finally
    OpenDialog.Free;
  end;