Главная страница
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.017 c
1-21667
Egor_Mar
2002-10-27 02:07
2002.11.07
Группировка свойств в компоненте


4-21861
Diamond Cat
2002-09-24 18:55
2002.11.07
куда исчезают ресурсы?


6-21719
kofman
2002-09-10 20:41
2002.11.07
Алгоритм поиска в тексте html-страниц банеров


1-21503
mikl2002
2002-10-29 07:26
2002.11.07
Переименование IxmlNode


1-21651
BofA
2002-10-27 18:32
2002.11.07
В TStringGrid все символы