Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: 0.022 c