初学Delphi请教如何截获SQL语句的错误！

Question

用TQuery构件时
procedure TForm1.Button1Click(Sender: TObject);
begin
         query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(edit1.Text);{若此时edit1的SQL语句出错，如：表名错误、字段名错误等，如何处理}
      query1.Open;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
         query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(edit1.Text);{若此时edit1的SQL语句出错，如：表名错误、字段名错误等，如何处理}
      try 
        query1.Open;
      except
        //在这里处理
        Application.MessageBox(pChar('Error Sql:' + edit1.Text), '', 0);
      end ;end;

Answer 2

yours:用TQuery构件时
procedure TForm1.Button1Click(Sender: TObject);
begin
         query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(edit1.Text);{若此时edit1的SQL语句出错，如：表名错误、字段名错误等，如何处理}
      ShowMessage(Edit1.Text);  //可以看到语句
      //或者  ShowMessage(Query1.Sql.Text);   也可以
      query1.Open;
end;

Answer 3

yours:用TQuery构件时
procedure TForm1.Button1Click(Sender: TObject);
begin
         query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(edit1.Text);{若此时edit1的SQL语句出错，如：表名错误、字段名错误等，如何处理}
     
      ShowMessage(Edit1.Text);  //可以看到语句
      //或者  ShowMessage(Query1.Sql.Text);   也可以      query1.Open;
end;