Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.15;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
14-1135330008
Непонимающий
2005-12-23 12:26
2006.01.15
Nexx NF-315


14-1134722550
Daria
2005-12-16 11:42
2006.01.15
telnet


2-1135601337
oleggar
2005-12-26 15:48
2006.01.15
hooks


14-1135088178
Jeer
2005-12-20 17:16
2006.01.15
За день чекиста.


1-1134468035
markers
2005-12-13 13:00
2006.01.15
Non-visual замена ListView&