Generisches Array über RTTI abfragen

[TheFrog]

Hallo!

Gibt es eine Möglichkeit, generische Arrays über die neue RTTI-Funktionaltiät abzufragen?

Bsp:

Delphi-Quellcode:

    property BoolArray: TArray<Boolean> read GetBoolArray write SetBoolArray;
    property IntArray: TArray<Integer> read GetIntArray write SetIntArray;

Ich würde gerne herauskriegen, wieviel Einträge das Array hat und wenn möglich, von welchem Typ die Einträge sind, damit ich diese dynamsich ermitteln kann.

Mein TValue liefert wie erwartet tkDynArray, jedoch komme ich dann nicht mehr weiter.

Vielen Dank, Hans.

Sorry, oben ist die falsche Delphi-Version angegeben (sollte XE3 heißen). Wie kann ich das korrigieren?

[TheFrog]

Nochmals mit dem gleichen Problem:

Ist es vielleicht besser, die Liste als TList<> zu deklarieren?

Beispiel:

Delphi-Quellcode:

    property BoolArray: TList<Boolean> read GetBoolArray write SetBoolArray;
    property IntArray: TList<Integer> read GetIntArray write SetIntArray;

Hier erhalte ich tkClass als Type, aber auch dann komme ich nicht weiter.

Vielleicht weiß ja wer, wie ich damit die einzelnen Elemente ermitteln kann. Es handelt sich um simple Datentypen (Integer, Boolean).

Hans.

[Uwe Raabe]

Mir ist noch nicht ganz klar, wo und wie du hier die neue RTTI einsetzt. tkDynArray hört sich eher nach alter RTTI an.

[TheFrog]

Mit tkClass od. tkDynArray meine ich der Wert von TValue.Kind. Ich dachte immer TValue hat was mit der neuen RTTI zu tun?

Habe aber inzwischen eine Lösung gefunden, vielleicht geht es auch eleganter (bin offen für Vorschläge):

Delphi-Quellcode:

          
          var
            OptValue: TValue;
          


          // Boolean-Liste ausgeben
          if (OptValue.Kind = tkClass) and (OptValue.AsObject is TList<Boolean>) then
          begin
            BooleanList := OptValue.AsObject as TList<Boolean>;

            for i := 0 to BooleanList.Count - 1 do
              // do something
          end

Ist leider nicht komplett abstract, d.h. ich muss hier den gewünschten Objekt-Typ wissen, aber für meinen Bereich reicht dies aus.