Скачать: CL | DM;

Как программно проверить, есть ли у объекта свойство?   Найти похожие ветки 

← →
Peter Gluhiy ©   (2002-10-28 12:15) [0]

Например, есть ли у наследника TDataSet свойство IndexFieldNames?
Хочу сделать свой DBGrid универсальным.
Сейчас для переключения индекса по клику на Title, сделано, примерно так:
if DataSource.DataSet is TIBTable then
TIBTable(DataSource.DataSet).IndexFieldNames:=TmpIndexFieldNames;

А мне очень нужно, чтоб с любым TTable работало!

В хелпе почитал про TObject.FieldAddress и написал:
p := Table1.FieldAddress("IndexFieldNames");
Почему-то - р=nil :(

---

← →
Игорь Шевченко ©   (2002-10-28 12:42) [1]

uses TypInfo;

function HSGetStrProp(Obj: TObject; const PropName : String): String;
var
PropInfo: PPropInfo;
begin
Result := "";
if Assigned(Obj) then begin
PropInfo:= Typinfo.GetPropInfo(Obj.ClassInfo, PropName);
if Assigned(PropInfo) then
Result:= GetStrProp(Obj, PropInfo);
end;
end;

---

← →
Peter Gluhiy ©   (2002-10-28 13:05) [2]

Спасибо! Принцип понял. Дальше постараюсь разобраться.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c