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

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

Использование компонента Table в цикле [D5, Paradox]

Velzevul ©   (2002-10-12 16:23:00) 

Уважаемые мастера! Как можно подменить Table1 на TableN в следующем цикле (просто пример):

for i:=1 to N do
Table1Number.Value:=X;

Имеется 8 таблиц и все их надо перебрать. Вычислений очень много. Написанный код очень громоздкий - для каждой таблицы из восьми написаны одинаковые вычисления. Хотелось бы написать процедуру, позволяющую сократить всё это безобразие.
PS: Для каждой таблицы 2053 строки кода. 8*2053=16424 строки.

---

Velzevul   (2002-10-12 16:33:00) [1]

Возможно! :)
Спасибо. попробую. :)

---

ZrenBy   (2002-10-12 16:31:00) [2]

Procedure QQ(tab:TTable);
begin
...
tab.FieldByName("qq").Value :=
...
end;

QQ(Table1)
...
QQ(Table8)

Так не пойдет ?

---

Наверх