Использование компонента 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]

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

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