SB
q.SQL.Text := 'SELECT * FROM table';
q.Open();
итд.. В принципе все то же самое, но проще в отладке и при наличии двух и более похожих объектов четко видно кто есть кто.
Size: a a a
SB
AB
with Obj1 as a, Obj2 as bAB
AB
AB
_rst и __rstrst: TADOQuery;rst := DBU.get_new_query();
GC(rst);SB
with Obj1 as a, Obj2 as bSB
SB
SB
AB
var a := Obj1, b := Obj2 begin // think as DO
...
enda
SB
DB
AB
GB
DB
AB
DB
AB
GB