RTTI / Memo.Lines / TStrings

[shmia]

Mit ...GetPropList(PTypeInfo(Memo1.Lines.ClassInfo), bist du doch schon eine Ebene zu tief.

Hier mal ein kleiner Ausschnitt aus meinem Objekt-Browser:

Delphi-Quellcode:

// das Objekt wäre hier das Memo
// und der Propertyname (PName) ist 'Lines'
   case PropType(obj,PName) of
      ... 
      tkClass:
         if GetObjectProp(obj, PName) is TStrings then
            ShowMessage('TStrings Property ' + PName + ':'#13#10 +
                        TStrings(GetObjectProp(obj, PName)).Text)
         else if GetObjectProp(obj, PName) is TDataSet then
            DataSetBrowser(GetObjectProp(obj, PName) as TDataSet,DS_DEBUG,'Dataset property ' + PName)
         else
            ShowObjectBrowser(GetObjectProp(obj, PName));