Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Открыть все НД в datamodule [D7, IB7.5]

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

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

evvcom (2006-09-15 08:37:00) [2]
> for i:=0 to dm1.ComponentCount do

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

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

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

Desdechado (2006-09-14 15:32:00) [3]
> необходимо использовать какой нить модуль
F1 на непонятом компилятором классе

RomanH (2006-09-14 13:02:00) [4]
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 или необходимо использовать какой нить модуль

> ЮЮ ©

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

ЮЮ (2006-09-14 12:51:00) [5]
if dm1.Components[i] is TDataSet then
TDataSet(dm1.Components[i]).Open

Наверх

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