动态生成SQL语句

    procedure TForm1.ExcuteBtnClick(Sender: TObject);
    begin
       SQLQuery1.SQL.Clear;
       SQLQuery1.SQL.Add('SELECT ' + Item.Text + ' FROM ' + table.Text);
       // Item.Text为输入查询项目编辑框，table.Text为查询表名编辑框
       if Length(contition.Text) <> 0 then
         SQLQuery1.SQL.Add('Where ' +contition.Text)
         // contition.Text为查询条件编辑框
      SQLQuery1.open;
    end;