Moin !

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

markieren

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 ?

Wie wär's mit Items.ClassNameIs('TStrings')

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

vermutlich so?
GetPropInfo(C, 'Items').PropType.Kind = tkString
[add]
PropType(C, 'Items') = tkString PS: kannte diese Funktion vorher auch nicht, aber wenn man mal nachsieht, was alles statt nur IsPublishedProp existiert .....


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

Moin !

markieren

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

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

Zitat von himitsu:

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

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

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