Как поменять какое-нибудь значение у всех нужных компонентов прил

← →
Sliften (2003-12-08 20:15) [0]

Как поменять какое-нибудь значение у всех нужных компонентов приложения

var i: Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TTable then
TTable(Components[I]).DatabaseName :=C:\ ;
end;

здесь перебираються все компаненты формы () а как зделать так чтобы перебирались все компаненты приложения

← →
Александр из Минска (2003-12-08 23:51) [1]

Нужно чтобы все TTable находило, не перебирая другие компоненты??? Если так, то вот так, если знаешь их количество:
var
i : Integer;
begin
for i := 1 to 10 do TTable(FindComponent("Table"+IntToStr(i))).DatabaseName :=C:\ ;
end;

← →
ЮЮ (2003-12-09 02:32) [2]

1) Все TTable положить в один DataModule
2) Использовать TDataBase и его DataSets

← →
Германн (2003-12-09 02:48) [3]

Еще один вариант - положить на форму компонент TDatabase, всем компонентам типа TTable и TQuery установить свойство DatabaseName в соответствии с именем компонента TDatabase и далее менять либо его свойство AliasName, либо Directory, либо в его Params менять значение Path. Имхо, собс-но для этого и существует компонент TDatabase!?

← →
Sliften (2003-12-09 09:24) [4]

Хорошо А есле усложнить задачу
Предположим надо поменять у всех DBEdit(ов) приложения (на всех формах)свойство Database (подкучить к другому Датасету не перебирая их в ручную)

← →
Ega23 (2003-12-09 09:47) [5]

Djpmvb
> Sliften ©

Создай DataModule, пропиши его во всех uses юнитов проекта, и все TTable, TQuery, TDataSource и т.п. держи там. Тогда ты отовсюду все запросы увидишь: DataModule1.Query1
Также туда положи TDataBase, и все коннекты DataSet"ов настраивай на него.
Создай 2 алиаса в BDE и в нужный тебе момент переключай алиас компонента TDataBase.
ИМХО, так удобней будет,Э чем все компоненты в проекте перебирать.

← →
Sliften (2003-12-09 21:39) [6]

Люди так меня и интересует как рас перебор всех компанентов приложения Сегодня у меня "таблицы" а завтра "кнопки" сам принцеп нахождения ВСЕХ компанентов приложения

← →
Zacho (2003-12-09 23:13) [7]

> Sliften © (09.12.03 21:39) [6]

Imho, в общем виде просто не существует. Да и не надо. Ты программист или кто ? Если программист, то и пиши программу так, как тебе нужно, например храни указатели на все нужные тебе объекты в какой-нибудь структуре и перебирай их, как тебе захочится.
P.S. Imho, фраза "компоненты приложения" просто не имеет смысла.

← →
Германн (2003-12-10 03:41) [8]

2 Sliften © (09.12.03 09:24) [4]
>Хорошо А есле усложнить задачу
>Предположим надо поменять у всех DBEdit(ов) приложения (на всех >формах)свойство Database (подкучить к другому Датасету не >перебирая их в ручную)

Определи сначала, что ты хочешь!
Но у "всех DBEdit(ов) приложения (на всех >формах)" нет свойства
Database!

А по поводу Sliften © (09.12.03 21:39) [6]
Будь добр - сформулируй свой вопрос!

Как поменять какое-нибудь значение у всех нужных компонентов прил Найти похожие ветки