Форум: "Базы";
Текущий архив: 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