Форум: "Базы";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Вниз

Не присваиваются значения, Вот фрагмент:   Найти похожие ветки 

← →
G707   (2005-11-22 13:04) [0]

 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, причем условия срабатывают, отрабатывают строки присваивания, а значения не присваиваются?
Что ни так в данном коде?

---

← →
G707   (2005-11-22 13:20) [1]

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

---

← →
Ega23 ©   (2005-11-22 13:36) [2]

> 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;


---

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

Форум: "Базы";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.014 c