Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

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

Гость (2004-07-23 18:09:00) [1]

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

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

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

bushmen (2004-07-23 16:40:00) [2]
> for i:=1 to 10 do

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

Oleg Belousov (2004-07-23 16:39:00) [3]
for i:=1 to 10 do
TTable(FindComponent('Table' + IntToStr(i))).егосвойство:=
чтонибудь;

bushmen (2004-07-23 16:25:00) [4]
> Anatoly Podgoretsky © (23.07.04 15:50) [5]

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

Anatoly Podgoretsky (2004-07-23 15:50:00) [5]
FindComponent

Соловьев (2004-07-23 15:28:00) [6]
сделать строковый массив где записать имена таблиц, а потом в цыкле просто меняешь свойство TTable.TableName

Sandman25 (2004-07-23 15:24:00) [7]
А еще можно так

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

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

end;

Рамиль (2004-07-23 15:22:00) [9]
Св-во Components
А точно надо делать цикл по таблицам?

Наверх

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