Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
ВнизСвязь компонента Найти похожие ветки
← →
Digitman (2002-02-27 14:36) [6]>Dtr
Из твоего вопроса это, кстати, вовсе не очевидно.
Под "связью" с неким заданным DataSet следует понимать именно наличие значения некоего объектного св-ва типа TDataSet некоего компонента, равное значению адреса заданного экземпляра класса-наследника TDataSet. В твоем случае такими компонентами являются именно компоненты класса TDataSource (о других используемых тобой классах, имеющих данное св-во, ты не упомянул). Именно их число и подсчитывается в приведенном мной фрагменте кода.
Если же тебе надо учесть при подсчете только модули данных (а не формы), то организуй чуть иной цикл (принципиально не отличается):
Result:= 0;
for i:= 0 to Screen.DataModuleCount - 1 do
with Screen.DataModules[i] do
for j:= 0 to ComponentCount - 1 do
if (Components[i] is TDataSource)
and (TDataSource(Components[i]).DataSet = DataModule1.MyDataSet) then
Result:= Result + 1;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c