Delphi Rtti: Изучить свойства интерфейсов?

Есть ли способ изучить свойства интерфейса с помощью Rtti?

Следующий код не работает:

procedure ExploreProps;
var
  Ctx: TRttiContext;
  RttiType: TRttiType;
  RttiProp: TRttiProp;
begin
  RttiType := Ctx.GetType(TypeInfo(IMyInterface));
  for RttiProp in RttiType.GetProperties do
    Writeln(RttiProp.ToString);
end;

Есть ли у кого-нибудь решение, как это сделать правильно?

9
задан Christian Metzler 12 September 2010 в 02:46
поделиться