不好意思,前两天不能上网。
1 SELECT * FROM * WHERE * IN (select * from * where *)
2 内存表可以使用Rx控件获自己做
3
//PTMyRecord = ^TMyRecord; 使用指针也可以
TMyRecord = record
a1: string;
a2: string;
end;
TArrayMyRecord = array of TMyRecord;
pocedure proc1;
var
i, ic: integer;
rr: TArrayMyRecord;
begin
query1.sql.execsql;
ic:=query1.recordcount;
setlength(rr,ic);
query1.first;
for i:=0 to ic-1 do begin
rr.a1:=query1.fieldbyname('a1').asstring;
rr.a2:=query1.fieldbyname('a2').asstring;
query.next;
end;
//以后就可以使用query中的数据了
end;