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