Generics (Objectlist) in Komponenten

[himitsu]

Du erstellst dir einen Typen für diese Liste.

Delphi-Quellcode:

type
  TDeineListe = TObjectList<TDeinObjekt>;

Und verwendest diesen Typen, genauso, wie du auch die nichtgenerische TObjectList verwenden würdest.


Aber:
Wenn du diesen Typen für ein Published-Property verwenden willst, dann gibt es ein klitzekleines Problem, denn im "internen" Klassennamen der TDeineListe gibt es < und >,
da TDeineListe nur ein Alias ist ist, wärend der eigentliche Typ "TObjectList<TDeinObjekt>" lautet und genau diese Zeichen sind in der VCL nicht für Typtbezeichner erlaubt.

Lösung: Ein "nichtgerneischer" Typ, also in der letzen Ableitung.

Delphi-Quellcode:

type
  TDeineGenListe = TObjectList<TDeinObjekt>;

  TDeineListe = class(TDeineGenListe)
    // wenn hier nix ist, dann geht auch das Nächste.
  end;

  TDeineListe = class(TDeineGenListe);

// oder ohne den unnützen Zwischentypen/Alias

type
  TDeineListe = class(TObjectList<TDeinObjekt>);

Weitere Typen kannst du natürlich nur über Vererbung bereitstellen, da du deiner "VCL"-Komponente natürlich nur einen Typen bekanntmachen kannst.
(abgesehn, wenn man es auf mehere Zugangspunkte, also Methoden und/oder Property verteilt)

Also entweder für die Übergabepunkte TObject (nicht "List") nutzen, was der Vorfahre aller Delphiklassen ist.
Oder eben ein generischer Typ (wie oben genannt) als Vorfahre und für die Schnittstellen dann davon weitere Typen ableiten.