Макроподстановка

← →
Sergi (2002-10-29 18:04) [0]

Для примера: x:="Application.MessageBox" (строчка). Как вьіполнить Application.MessageBox (то, что в переменной)?

← →
Юрий Федоров (2002-10-29 18:18) [1]

Такие пакеты денег стоят

← →
TTCustomDelphiMaster (2002-10-29 18:22) [2]

if x="Application.MessageBox" then ...

← →
Sergi (2002-10-29 20:02) [3]

2Юрий Федоров
За что деньги? На фоксе делается так: &x. Думаю что-то вроде должно бьіть и тут.
2CustomDelphiMaster
А если (мой вариант) x="PaysTable.Active". То-есть в переменной (у меня - в ячейке таблицьі) свойство. Надо свойство сделать True(False). Как тогда ? И, спасибо за ответ.

← →
down (2002-10-29 20:48) [4]

Фокс - это интерпретатор, а делфи - компилятор, макроподстановок тут нет.

← →
TTCustomDelphiMaster (2002-10-29 21:31) [5]

> Думаю что-то вроде должно бьіть и тут.

В Delphi такого нет.

← →
Дремучий (2002-10-29 22:21) [6]

> TTCustomDelphiMaster © (29.10.02 21:31)
> В Delphi такого нет.

нет, попробовать написать можно... даже не мастеру... даже очень быстро... так сказать маленький спец-интерпретатор...
твой же пример...
if x="Application.MessageBox" then ...

Все зависит сколько таких функций нужно выполнять и каких именно...
:))

← →
Sergi (2002-10-30 13:51) [7]

Суть такая - есть список таблиц. по нему в цикле делается проверка наличности таблиц, их копия. Хочется еще по нему менять свойство TableName - у обьекта, открьівающего соответстенную таблицу, чтоб не прописьівать каждьій раз конкретньій обьект. Может есть другой вариант ? Спасибочки

← →
Tonie (2002-10-30 14:39) [8]

Если я телепат то у уважаемого Sergi есть модуль данных с кучей TableX:TTable и он непременно хочет задавать TableName для них из некоего списка ?
Может тогда цикл по Components с проверкой типа на TTable и соответственно с доступом к TableName спасет отца русской демократии ...

← →
Sergi (2002-10-30 14:52) [9]

Tonie - почти телепат ;]
Таблиц - всего 12-14:TDbf. Я думаю обращение по типу и будет единственньім вьіходом в ситуации. Просто задался вопросом, и очевидно ответ - отрицательньій.

← →
Дремучий (2002-10-30 16:11) [10]

Создаешь таблице в которую загоняешь свой список...
в то й же таблице создаешь нужное количество полей, куда можешь прописать названия таблиц, сроки их проверки, количество копий, код для интепретатора и т.п. Потом Бросаешь на форму два ТТаble - один для этой таблицы, другой для динамически загружаемых таблиц...
А дальше либо жестко пишешь цикл обработки, либо через интепретатор выполняешь код для каждой таблицы...
Оно?

:))

← →
Sergi (2002-10-30 17:44) [11]

> либо через интепретатор выполняешь код для каждой таблицы...

:) звучит как оно, но желательно популярнее.
Например tables (table_name,...) - список раб. таблиц. В первой записи table_name: pays. Для нее - PaysDbf. Конкретно, как будет вьіглядеть строчка, чтоб
PaysDbf.TableName:=ExtractFilePath(Application.ExeName)+"pays";
Енто и есть моя ситуация

← →
TTCustomDelphiMaster (2002-10-30 20:54) [12]

> В первой записи table_name: pays. Для нее - PaysDbf.

У вас что для каждой таблицы свой компонент?
Делайте лучше как говорит Дремучий © (30.10.02 16:11)

...
DinamicTable.DatabaseName := ExtractFilePath(Application.ExeName);
DinamicTable.Name := NameTable.FieldValues["DBNAME"];
...

← →
Sergi (2002-10-31 14:56) [13]

> свой компонент

да, я понимаю, что некрасиво, но если одновременно надо открьіть 3-4 таблицьі (для лукапа), то как иначе ?

← →
Sergi (2002-11-01 15:41) [14]

ну вобщем, все закрутилось !!! спасибо за ответьі-пригодилось.

← →
Дремучий (2002-11-01 18:12) [15]

> Sergi (31.10.02 14:56)
>
> > свой компонент
>
> да, я понимаю, что некрасиво, но если одновременно надо
> открьіть 3-4 таблицьі (для лукапа), то как иначе ?

ой трахался я с лукапами на тейблайх, ой по молодости...
используй TQuery (и локальный SQL)- никаких индексов не нужно, связок в дизайнере тоже (кстати запросы можешь тоже хранить в главной таблице)

на самом деле, кроме всего остального ТЕБЕ НУЖЕН БЫЛ TQuery

удачи!

Макроподстановка Найти похожие ветки