Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.07;
Скачать: 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 вся ветка

Текущий архив: 2002.11.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
7-21844
Алмаз
2002-09-04 16:33
2002.11.07
использование звуковой карты


1-21685
Andrew2
2002-10-28 11:04
2002.11.07
функция в dll


3-21457
Fishka
2002-10-18 09:47
2002.11.07
Table.Fields


1-21489
STANT
2002-10-28 18:07
2002.11.07
Очень сложный вопрос...


14-21784
PVOzerski
2002-10-19 03:08
2002.11.07
о мыши Genius