Überprüfung ob Objekt eine generische Liste ist

[himitsu]

Code:

$54,$4F,$62,$6A,$65,$63,$74,$4C = 'TObjectL'
$54,$4F,$62,$6A,$65,$63,$74,$53 = 'TObjectS'
$54,$4F,$62,$6A,$65,$63,$74,$51 = 'TObjectQ'

Ob deine Vergleiche so wirklich zuverlässig sind?

[Neutral General]

Zitat von himitsu:

Code:

$54,$4F,$62,$6A,$65,$63,$74,$4C = 'TObjectL'
$54,$4F,$62,$6A,$65,$63,$74,$53 = 'TObjectS'
$54,$4F,$62,$6A,$65,$63,$74,$51 = 'TObjectQ'

Ob deine Vergleiche so wirklich zuverlässig sind?

Habe ja gesagt, dass ich für nichts garantiere. Hab den Code in einigen unterschiedlichen Projekten mit jeweils 5 verschiedenen Arten von Objektlisten/Stacks/Queues getestet und bisher scheint das so zu funktionieren.

EDIT: Verdammt ich Idiot. Jetzt verstehe ich auch was du geschrieben hast. Das ist natürlich Schwachsinn -.-^^

PS: Aber Hauptsache ich habe nicht auf Classname geprüft

[stahli]

Kennt jemand inzwischen vielleicht doch eine Lösung?

Mein Problem:
Ich habe einen Container mit einer generischen Liste

Delphi-Quellcode:

unit od;

interface

uses
  Classes, Contnrs, Generics.Collections;

type

  AttrOd = class(TCustomAttribute);

  Tod = class(TComponent)
  private
    ...
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    ...
  published
    ...
  end;

  Todl<T: Tod> = class(Tod)
  private
    FItems: TObjectList<T>;
  protected
    ...
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Items: TObjectList<T>read FItems;
  published
  end;

...

constructor TodSport.Create(AOwner: TComponent);
begin
  inherited;
  FNumeratorList := Todl<TodNumerator>.Create(Self);
  FDisciplineGroupList := Todl<TodDisciplineGroup>.Create(Self);
end;

...

Über RTTI ermittle ich verschiedene Eigenschaften und erhalte ein TObject "O", das auf die Property NumeratorList von Sport zeigt.
Nun würde ich gern auf die einzelnen Items zugreifen (z.B. über (O as Todl<Tod>).Items[0] ).

An den ClassName 'TObjectList<odNumerator.TodNumerator>' komme ich heran, aber ein Cast ist wohl nicht möglich, oder?

Ich will mit allen Items (die vom Typ "Tod" sein müssen) eine Aktion durchführen.
Muss ich in diesem Fall auf Generics verzichten?

[webcss]

Schau mal hier den konkreten typ eines generics ermitteln
Das ist wohl genau die Lösung zu Deinem Problem, welches sich mir auch schon stellte...

[stahli]

Den Thread kenne ich und habe die Funktion getestet.
Ich muss jedoch auf den Container casten, der die generische Liste enthält und will dann auf die Liste zugreifen.
Das ist mir nicht gelungen...

[himitsu]

Delphi-Quellcode:

var c: class of ...;

(O as C).xyz

Sowas geht hier eh nicht, da hier der /basis)Typ statisch (konstant) sein muß, weil dieser Zugriff ja über den Compiler aufgelöst wird.

Wenn du über die RTTI willst, dann wirst du dieses auch weiter manuell/dynamisch über die RTTI auflösen müssen.

Also über den gefundenen Typ die Property abfragen, dann vom gewünschten Property den Type und nun auch noch über die RTTI auf dieses Property zugreifen.