Property Typ ermitteln

[moelski]

Moin !

Ich habe da ein Stück Code (C = TComponent):

Delphi-Quellcode:

    if IsPublishedProp(C, 'Items') then begin
      SubNode := XMLDoc.SelectSingleNode('/Language/' + Form.Name + '/' + C.Name + '/Items');
      ...
      SetCDataChild(SubNode, (GetObjectProp(C, 'Items') as TStrings).Text);
    end;

Das funzt auch ganz gut. Allerdings gibts da ein kleines Problem. Items kann vom Typ TStrings sein aber ein Popupmenü hat auch eine Items Property die ist aber nicht vom Typ TStrings. Das kanllt natürlich.

Wie kann ich nun überprüfen ob Items auch wirklich vom Typ TStrings ist?
Geht das irgendwie mit PropType? Folgendes geht jedenfalls mal nicht:
PropType(C, 'Items') = TStrings :| Ist aber auch klar, weil PropType was ganz anderes zurück liefert ...

Any hints ? :gruebel:

[quendolineDD]

Wie wär's mit

Delphi-Quellcode:

Items.ClassNameIs('TStrings')

[mirage228]

Du könntest es besser mit "is TStrings" und danach bei Erfolg mit einem "harten" Cast machen ( TStrings(Objekt) ). ClassNameIs() würde Nachfahren von TStrings, welche auch die Text-Property ausschliefen afaik.

Viele Grüße

[himitsu]

vermutlich so?

Delphi-Quellcode:

GetPropInfo(C, 'Items').PropType.Kind = tkString

[add]

Delphi-Quellcode:

PropType(C, 'Items') = tkString

PS: kannte diese Funktion vorher auch nicht, aber wenn man mal nachsieht, was alles statt nur IsPublishedProp existiert .....


[add2] :oops: er wollte es ja andersrum .. dann siehe weiter unten

[moelski]

Moin !

Delphi-Quellcode:

    if IsPublishedProp(C, 'Items') then begin
      if GetObjectProp(C, 'Items') is TStrings then begin
        SubNode := XMLDoc.SelectSingleNode('/Language/' + Form.Name + '/' + C.Name + '/Items');
        if SubNode = NIL then begin
          Knoten  := XMLDoc.CreateElement('Items');
          SubNode := Node.AppendChild(Knoten);
        end;
        SetCDataChild(SubNode, (GetObjectProp(C, 'Items') as TStrings).Text);
      end;
    end;

So tut das.

Wie immer stehe ich tief in eurer Schuld. Danke :thumb: :dp:

[himitsu]

GetObjectProp will hier aber nur Objekte und keine Klasse (C = TComponent) :gruebel:

[mirage228]

Zitat:

Zitat von himitsu

GetObjectProp will hier aber nur Objekte und keine Klasse (C = TComponent) :gruebel:

Wenn die Variable C vom Typ TComponent ist, dann passt es doch...

[himitsu]

hmmm *nochmalüberleg* ... OK, wenn C wie TComponent und nicht C wie Class bzw. O wie Object ... dann könntest du doch Recht haben :oops: