чтобы сто строчек не писать?

← →
Kat (2004-12-02 13:08) [0]

Когда в разные запросы передаются одни и те же параметры,
как можно в процедуру записать, чтобы сто строчек не писать?
Спасибо.

Query_1.ParamByName("YEARNUMBER").AsInteger:=2004;
Query_1.ParamByName"MONTHNUMBER").AsInteger:=1;

Query_2.ParamByName("YEARNUMBER").AsInteger:=2004;
Query_2.ParamByName("MONTHNUMBER").AsInteger:=24;

Query_3.ParamByName("YEARNUMBER").AsInteger:=2004; Query_3.ParamByName("MONTHNUMBER").AsInteger:=1;

← →
Алхимик © (2004-12-02 13:10) [1]

Цикл по всем TQuery.

← →
Kat (2004-12-02 13:12) [2]

А как записать, т.к на форме есть и другиеTQuery

← →
Алхимик © (2004-12-02 13:13) [3]

for i := 0 to ComponentCount-1 do begin
if Components[i] is TQuery then begin
TQuery(Components[i])...
end;
end;

1.объявить соотв.структурый тип
2.объявить массив значений этого типа
3.заполнить массив
4.в цикле по всем эл-там массива взять из каждого очер.эл-та параметры и вызвать с этими параметрами соответствующий запрос на исполнение

чтобы сто строчек не писать? Найти похожие ветки