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

Вниз

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

← →
Digitman   (2002-02-28 09:37) [9]

>Dtr
Тогда твой вопрос д.б. прозвучать иначе :
"Сколько виз.компонентов, принадлежащих в run-time всем существующим в приложении в данный момент формам, имеют св-во DataSource, ссылающееся на некий объект класса TDataSource c заданным св-вом DataSet ?"

Подсчитываем все виз.контролы, имеющие непустое св-во DataSource: TDataSource, ссылающееся на объект класса TDataSource, св-во DataSet которого = Table1 :


var
DS: TObject;

Result:= 0;
for i:= 0 to Screen.FormCount - 1 do
with Screen.Forms[i] do
for j:= 0 to ComponentCount - 1 do begin
DS := GetObjectProp(Components[i], "DataSource", TWinControl);
if Assigned(DS) and (DS is TDataSource) and (TDataSource(DS).DataSet = Table1) then
Result:= Result + 1;
end;


---

Страницы: 1 вся ветка

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

Наверх

Память: 0.43 MB
Время: 0.004 c