sql.add(select * from table_01);
sql.add(select * from table_02);
sql.add(select * from table_03);
sql.add(select * from table_04);
.
.
.
OPEN之后。如果在表格中显示最后一个集合？

NextRecordSet

NextRecordSet从网上查 可能要用这个。但是如何判断是最后一个

procedure TForm_main.btn3Click(Sender: TObject);
var
  R: integer;
  fld_value:string;
 begin
   with  qry1  do
   begin
    Close;
    SQL.Text :=   ' select :aa as aa ; select :bb as aa ; select :cc as aa ';
    Parameters.ParamByName('aa').Value:='aa';
    Parameters.ParamByName('bb').Value:='bb';
    Parameters.ParamByName('cc').Value:='cc';
    Open;
    R:=1;
    fld_value:=qry1.Fields[0].Value;
    ShowMessage(fld_value);
    Recordset:=  NextRecordSet(R);
    fld_value:=qry1.Fields[0].Value;
    ShowMessage(fld_value);
    Recordset:=  NextRecordSet(R);
    fld_value:=qry1.Fields[0].Value;
    ShowMessage(fld_value);
    Recordset:=  NextRecordSet(R);
    fld_value:=qry1.Fields[0].Value;
    ShowMessage(fld_value);
  end
 end;