Как обойти все объекты в DataModule

← →
sergg © (2004-04-20 22:52) [0]

Уважаемые мастера подскажите пожалуйста,
как можно обойти в DataModule, скажем все ADOTable и задать им свойство Active:=true
а ADOConnection свойство Connected:=true?
А то писать длинный список всех таблиц не удобно.

← →
Курдль © (2004-04-20 23:37) [1]

Я не могу себе представить в страшном сен, зачем это понадобилось?

← →
sniknik © (2004-04-20 23:52) [2]

> ADOTable
???
и насколько длинен список? и сколько у тебя памяти в машине?

← →
Алхимик © (2004-04-21 00:19) [3]

Что то вроде
for i := o to DataModule.ComponentCount-1 do
if (DataModule.Components[i] is TAdoTable) then
(DataModule.Components[i] as TAdoTable).Active := true;

Нехорошо правда...

← →
kaif © (2004-04-21 00:30) [4]

Да...

Рекомендую еще вот так написать:

Screen.Cursor := crHourGlass;
try
with DataModule do
for i := 0 to ComponentCount - 1 do
if Components[i] is TAdoTable then
with Components[i] as TAdoTable do
Active := true;
finally
Screen.Cursor := crDefault;
end;

Чтобы юзер не нервничал.

← →
Anatoly Podgoretsky © (2004-04-21 00:41) [5]

А нервный пользователь может расколашматить монитор

> [5] Anatoly Podgoretsky © (21.04.04 00:41)
> А нервный пользователь может расколашматить монитор

Это HardWare проблема... :)

Спасибо вам уважемые.;)
Вы мне неоценимо помогли.:)))

> Вы мне неоценимо помогли.:)))

Сарказм & ирония? :)))
Ну, давайте я Вам помогу. Вот мой совет - никогда не делайте открытия Датасетов без надобности. Или у Вас есть такая надобность? Тогда опишите свою проблему - мы все подумаем. А то Вы бросили темку и что? Ждали, что утречком откроете сайт - а там "на блюдечке с каёмочкой..."?

Как обойти все объекты в DataModule Найти похожие ветки