Открыть все НД в datamodule

← →
RomanH © (2006-09-14 12:41) [0]

Извините мастера но немогу найти, хотя не давно видел, читал такой топик.
Требуется окрыть все наборы данных в DATA MODULE Делаю так
for i:= to dm1.ComponentCount do
begin
dm1.Components[i].
end
а дальше не знаю,подскажите пожайлусто

← →
ЮЮ © (2006-09-14 12:51) [1]

if dm1.Components[i] is TDataSet then
TDataSet(dm1.Components[i]).Open

← →
RomanH © (2006-09-14 13:02) [2]

for i:=0 to dm1.ComponentCount do begin if (dm1.Components[i] is TIBDataSet) or (dm1.Components[i] is TIBQuery) then TDataSet(dm1.Components[i]).Open; end;
Как объявить TIBDataSet и TIBQuery?Чтобы компилятор не выдавал ошибку
Undeclared indefiner TIBDataSet/
Undeclared indefiner TIBQuery или необходимо использовать какой нить модуль

> ЮЮ ©

Спасибо за совет

← →
Desdechado © (2006-09-14 15:32) [3]

> необходимо использовать какой нить модуль
F1 на непонятом компилятором классе

> for i:=0 to dm1.ComponentCount do

for i:=0 to dm1.ComponentCount - 1 do

> if (dm1.Components[i] is TIBDataSet) or
> (dm1.Components[i] is TIBQuery)

Все они потомки TDataSet, потому оптимальнее будет как в [1]

> Все они потомки TDataSet, потому оптимальнее будет как в [1]
Не всегда. Например, ClientDataSet, зацепленный за SQLDataset. Открывать нужно только CDS, а SQLDataset откроется автоматически. Поэтому проверки весьма логичны.

Открыть все НД в datamodule Найти похожие ветки