Mit RTTI verschachtelte Eigenschaften einer Komponente auslesen

[Stevie]

Da es sich um published Properties handelt, hab ich mal die old school RTTI bemüht, die auch der OI nutzt.

Delphi-Quellcode:

uses
  TypInfo;

procedure WriteDates(f: TFeiertag);
var
  props: PPropList;
  i: Integer;
begin
  for i := 0 to GetPropList(TypeInfo(TFeiertag), [tkClass], props) - 1 do
    if props^[i].PropType^ = TypeInfo(TTag) then
      Writeln(TTag(GetObjectProp(f, props^[i])).Datum);
end;

Übrigens: http://docwiki.embarcadero.com/RADSt...ndexbezeichner