Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как подставить путь к имени таблицы? [D6, WinXP]


kyn66 ©   (2005-07-01 11:59:00) 

Добрый день, мастера! Для того, чтобы использовать имя табли в программе, я делаю так :

Tab : TADOTable;
s := '01'; // может принимать значение
s := '02'; // может принимать значение
s := '03'; // может принимать значение
...
Tab   := TADOTable(FindComponent('Rep' + s + 'OperTbl'));
...

Tab.Open;
...
Tab.Close;

и т.д. А как поступить, если таблица у меня находится на другой форме, как правильно подставить путь к этой конструкции? Должно быть типо так

DM1.Tab.Open;
...
DM1.Tab.Close;


kyn66   (2005-07-01 12:13:00) [1]

> Anatoly Podgoretsky
это просто пример, какие значения могут придаваться - s. В коде не так.
> Digitman
А действительно, подставлять впереди имя формы и все 8-). Ща попробую, сенькс.


Anatoly Podgoretsky   (2005-07-01 12:03:00) [2]

Эти две строки лишнии, компилятор должен был тебя обругать
s := '01'; // может принимать значение
s := '02'; // может принимать значение


Digitman   (2005-07-01 12:02:00) [3]


> если таблица у меня находится на другой форме


вот для той самой "другой" формы и вызывай метод FindComponent()


-=XP=-   (2005-07-01 12:00:00) [4]

Должно быть типо так


Наверх

Титульная страница Поиск, карта сайта Написать письмо