Как сделать массив Query

← →
BT (2002-09-07 22:20) [0]

Уважаемые мастера!
Может кто подскажет - есть куча Query (Query1_1 ... Query1_20, Query4_1..Query4_20)- выполняющих одну и ту же процедуру. Как загнать их всех в массив и рекурсивно выполнить процедуру?

← →
[NIKEL] © (2002-09-07 22:24) [1]

а зчем стока Query для всего одной процедуры?

← →
BT (2002-09-07 22:27) [2]

Хитрая штука - пытаюсь сделать отчет в EXCELL, где определенному Range соответствует свой Query

← →
[NIKEL] © (2002-09-07 22:32) [3]

дааа... а по очереди ни как нельзя свой рендж заполнять используя один Query? тем более что одинаковая процедура...

← →
BT (2002-09-07 22:35) [4]

Не-а можно было бы - не изголялся бы так и народ попусту бы не беспокоил ;)

← →
Юрий Зотов © (2002-09-07 23:02) [5]

var
Queries: array[1..4, 1..20] of TQuery;
...
for i := 1 to 4 do
for j := 1 to 20 do
begin
Queries[i, j] := TQuery.Create(Self);
with Queries[i, j] do
begin
SQL := ...;
... // что угодно еще
end
end;
...

← →
BT (2002-09-08 11:25) [6]

А если Query уже существуют, как их загнать в массив (мне нужны определенные имена Query)

Пример для случая, когда все Query лежат на одной форме или модуле данных.

var
Queries: array[1..4, 1..20] of TQuery;

for i := 1 to 4 do
for j := 1 to 20 do
Queries[i, j] := TQuery(FindComponent(Format("Query%d_%d", [i, j])));

Как сделать массив Query Найти похожие ветки