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

Как обойти все объекты в 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]

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

---

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

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

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

---

← →
sergg ©   (2004-04-21 11:42) [7]

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

---

← →
Курдль ©   (2004-04-21 11:45) [8]

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

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

---

Страницы: 1 вся ветка

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



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