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

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

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

Тип объекта неизвестен, а имя свойство точно известно [D5, MS Access 2000]

SerKom © (2004-04-20 07:52:00)
Может быть кто-нибудь знает, как обратиться к св-ву объекта, не указывая тип объекта, у которого это свойство имеется?
Подробнее: большинство компонентов (Data Controls) имеют св-во DataField, но у них нет общего наследника с этим свойсвом, т.е., например, я точно знаю, что у меня на форме все контролы имеют св-во DataField, но они все разного типа, как обойти громоздкую констукцию перечисления всех возможных типов:
if Контрол is Тип1 then
s:=(Контрол as Тип1).DataField;
if Контрол is Тип2 then
s:=(Контрол as Тип2).DataField;
и т.д.

SerKom (2004-04-20 08:09:00) [1]
Всем спасибо, тема закрыта.

uses TypInfo;

......................

const
strPropName = 'DataField';
var
I: Integer;
S: String;
begin
S := '';
for I := 0 to ComponentCount - 1 do
begin
if IsPublishedProp(Components[I], strPropName) then
begin
if PropIsType(Components[I], strPropName, tkLString) then
begin
S := GetStrProp(Components[I], strPropName);
end;//if
end;//if
end;//for
end;

SerKom (2004-04-20 08:05:00) [2]

> sniknik © (20.04.04 07:59) [1]
>(если оно описана в каждом на последнем уровне то так не пойдет)

cв-во DataField как раз так и описано

sniknik (2004-04-20 07:59:00) [3]
приводи к тому типу наследником которого они все являются и где впервые описано нужное свойство.
(если оно описана в каждом на последнем уровне то так не пойдет)

Наверх

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