| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

чтобы сто строчек не писать? [D7, WinXP]

Kat ©   (2004-12-02 13:08:00) 

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

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:13:00) [1]

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:00) [2]

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

---

Kat   (2004-12-02 13:12:00) [3]

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

---

Алхимик   (2004-12-02 13:10:00) [4]

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

---

Наверх