Как организовать цикл таблицам (компоненты) Table1, ... Table10?

← →
Chery (2004-07-23 15:21) [0]

Есть у меня на форме компоненты Table1, Table2,... Table10
Как мне организовать цикл по этим таблицам?
Ведь если i:=1 To 10
то как сопоставить Ttable и String (имя таблицы или компоненты) ?
("Table" + str(i))

← →
Рамиль © (2004-07-23 15:22) [1]

Св-во Components
А точно надо делать цикл по таблицам?

← →
Ega23 © (2004-07-23 15:23) [2]

With Form1 do
begin
for i:=0 to ComponentCount-1 do
if (Components[i] is TTable) then
(Components[i] as TTable).Метод_Или_Свойство_Класса_TTable
......

end;

← →
Sandman25 © (2004-07-23 15:24) [3]

А еще можно так

type
TMyTables = (mt1, mt2, ...);
var
MyTablesArr: array[TMyTables] of TTable;
MyTable: TMyTable;
begin
for MyTable := Low(TMyTables) to High(TMyTables) do
MyTablesArr[MyTable].Free :)

← →
Соловьев © (2004-07-23 15:28) [4]

сделать строковый массив где записать имена таблиц, а потом в цыкле просто меняешь свойство TTable.TableName

← →
Anatoly Podgoretsky © (2004-07-23 15:50) [5]

FindComponent

← →
bushmen © (2004-07-23 16:25) [6]

> Anatoly Podgoretsky © (23.07.04 15:50) [5]

[2] удобнее и быстрее

← →
Oleg Belousov (2004-07-23 16:39) [7]

for i:=1 to 10 do
TTable(FindComponent("Table" + IntToStr(i))).егосвойство:=
чтонибудь;

> for i:=1 to 10 do

Не всегда известно количество элементов

← →
Гость (2004-07-23 18:09) [9]

> Не всегда известно количество элементов

Есть у меня на форме компоненты Table1, Table2,... Table10

Так что все известно :)

Как организовать цикл таблицам (компоненты) Table1, ... Table10? Найти похожие ветки