Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Вниз

Связь компонента   Найти похожие ветки 

← →
Digitman   (2002-02-27 13:22) [3]

Result:= 0;
for i:= 0 to Screen.FormCount - 1 do
with Screen.Forms[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.43 MB
Время: 0.005 c