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

Использование компонента Table в цикле   Найти похожие ветки 

← →
Velzevul ©   (2002-10-12 16:23) [0]

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

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

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

---

← →
ZrenBy ©   (2002-10-12 16:31) [1]

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

QQ(Table1)
...
QQ(Table8)

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

---

← →
Velzevul ©   (2002-10-12 16:33) [2]

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

---

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

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



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