Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

Как организовать цикл таблицам (компоненты) 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))).егосвойство:=
             чтонибудь;


 
bushmen ©   (2004-07-23 16:40) [8]

> for i:=1 to 10 do

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


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


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

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

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



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

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.049 c
14-1090942089
Konoko
2004-07-27 19:28
2004.08.15
Oni - Forever Anime - это круто.


14-1090922692
VMcL
2004-07-27 14:04
2004.08.15
О работе


3-1090481956
serg128
2004-07-22 11:39
2004.08.15
Как в вычислимом (Calculated) поле задать маску отображения чисел


3-1090389271
sergt
2004-07-21 09:54
2004.08.15
обновление данных в DBGrid2


1-1091205920
DreymanD
2004-07-30 20:45
2004.08.15
Глючит открытие файлов способом ShellExecute