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

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

Не присваиваются значения, Вот фрагмент: [D7]

G707 ©   (2005-11-22 13:04:00) 

 For i:= 0  to ComponentCount - 1 do
 Begin
   If Components[i] is TADOTable then
   Begin
    TADOTable(Components[i]).Connection:= MainF.ADOConnection_Main;
   End
   else if Components[i] is TADOQuery then
   Begin
     TADOQuery(Components[i]).Connection:= MainF.ADOConnection_Main;
   End;
 End;
После выполнения данного кода значения Connection остаются равными Nil, причем условия срабатывают, отрабатывают строки присваивания, а значения не присваиваются?
Что ни так в данном коде?

---

Ega23   (2005-11-22 13:36:00) [1]

> For i:= 0  to ComponentCount - 1 do
>  Begin
>    If Components[i] is TADOTable then
>    Begin
>     TADOTable(Components[i]).Connection:= MainF.ADOConnection_Main;
>
>    End
>    else if Components[i] is TADOQuery then
>    Begin
>      TADOQuery(Components[i]).Connection:= MainF.ADOConnection_Main;
>
>    End;
>  End;


Достаточно так:

for i:=0 to ComponentCount - 1 do
 if (Components[i] is TCustomADODataSet) then
 TCustomADODataSet(Components[i]).Connection:=MainF.ADOConnection_Main;


---

G707   (2005-11-22 13:20:00) [2]

Сорри, все в порядке, невнимательность...

---

Наверх