Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать массив Query [D5, WinXP]

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

Юрий Зотов (2002-09-08 11:33:00) [1]
Пример для случая, когда все 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])));

BT (2002-09-08 11:25:00) [2]
А если Query уже существуют, как их загнать в массив (мне нужны определенные имена Query)

Юрий Зотов (2002-09-07 23:02:00) [3]
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-07 22:35:00) [4]
Не-а можно было бы - не изголялся бы так и народ попусту бы не беспокоил ;)

[NIKEL] (2002-09-07 22:32:00) [5]
дааа... а по очереди ни как нельзя свой рендж заполнять используя один Query? тем более что одинаковая процедура...

BT (2002-09-07 22:27:00) [6]
Хитрая штука - пытаюсь сделать отчет в EXCELL, где определенному Range соответствует свой Query

[NIKEL] (2002-09-07 22:24:00) [7]
а зчем стока Query для всего одной процедуры?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »