大家来看看啊，TOpenDialog没有反应啊

Question

procedure TForm1.Button1Click(Sender: TObject);
var  openDialog:TOpenDialog;
beginopenDialog.execute;end;
按了botton1后怎么没反应呢？先谢谢了

Answer 1

因为openDialog没有创建TOpenDialog类的实例:procedure TForm1.Button1Click(Sender: TObject);
var  openDialog:TOpenDialog;
begin
  openDialog := TOpenDialog.Create(Self);
  try
    openDialog.execute;
  finally
    FreeAndNil(openDialog);
  end;
end;

Answer 2

要添加一个openDialog的啊   你怎么还定义一个openDialog呢？？