Auslesen von Properties mittels RTTI

[StefanG]

Hallo, ich habe ein Problem mit der RTTI.

Ich habe eine Klasse (in einer Extra Unit), die eine ganze Menge Properties hat (Boolean)
Diese Properties geben an, ob eine Bestimmte Lizenz vorhanden ist oder nicht.

In einer Datenbank gibt es 4 Felder :

Der Name der Lizenz und 3 weitere Felder, die zusammengesetzt den Namen der Property widergeben.
Die Klasse sieht etwa so aus

Delphi-Quellcode:

type
   TLizenzen = class(TObject)
   private
     FM110100      : Boolean;
     FM110120      : Boolean;
     FM110140      : Boolean;
     FM110200      : Boolean;
   public
     constructor Create(Dir: String); overload; 
     constructor Create(DS: TDataset); overload;                   
   published
     property M110100      : Boolean     Read FM110100      Write FM110100;
     property M110120      : Boolean     Read FM110120      Write FM110120;
     property M110140      : Boolean     Read FM110140      Write FM110140;
     property M110200      : Boolean     Read FM110200      Write FM110200;
   end;

(unwichtige Sachen jetzt mal weggelassen, es sind in Wirklichkeit auch viel mehr Properties die aber alle gleich aussehen)

Das erste Feld, also der Lizenzname wird in einer Liste angezeigt, woraus man dann verschiedene auswählen kann.
Jetzt will ich überprüfen, ob die Lizenzen vorhanden sind. Dazu baue ich also die anderen 3 Felder zum Lizenznamen zusammen.

Das Problem ist jetzt, dass ich die Property nicht vernünftig abfragen kann.

In der Unit TypInfo gibt es eine Funktion GetOrdProp. Somit sollte ich mit

Delphi-Quellcode:

  ...
  result := GetOrdProp(LizenzObj,'M110100') <> 0;

die Property auslesen können, es kommt aber immer die Meldung "Eigenschaft M110100 existiert nicht.
GetOrdProp(Form1,'visible') z.b. funktioniert aber so.

Beim einlesen habe ich gesehen, dass die Funktion nur Published properties auslesen kann, was sie ja jetzt auch sind,
allerdings gibt auch die Funktion IsPublishedProp(LizenzObj,'M110100') False zurück.

Habe ich irgendwas übersehen oder geht es vielleicht doch ganz anders?