Скачать: CL | DM;

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

← →
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;

---

← →
Digitman ©   (2004-12-02 13:13) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.048 c