Ja, irgendwie kann ich mich nicht richtig verständlich machen.
Also vielleicht nochmal. Ich habe folgende Situation:
Delphi-Quellcode:
type
TTyp = class(TObject)
Var1 : integer;
Var2 : string;
Var3 : Boolean;
Var4 : TBitmap;
Var5..Var20
end;
type
TTyp2 = class(TBasis)
Var1 : integer;
Var2 : string;
Var5 : integer;
Var6 : string;
end;
type
TListe = class(TObjectList<TTyp1>)
public
procedure SortiereVar1(Wert:integer)
procedure SortiereVar2(Wert:string
end;
Ich brauche nun für eine bestimmte Aufgabe Var1 und Var2 und die dazugehörigen Prozeduren der TObjectlist, aber zusätzlich noch Var5 und Var6. Var5..20 brauche ich nicht. Das alles ist nun in Typ2 realisiert.
Zurzeit ist Typ2 eine abgeleitete Klasse von Typ1. Damit stehen mir die neuen Felder und die gewünschten Prozeduren der TObjectList zur Verfügung, aber ich schleppe Var5..Var20 mit und muss immer den Typecast
Erbe := TErbe(Liste[0]) machen.
Wie gesagt, es funktioniert alles, aber ich glaube, dass das besser geht. Die Syntax von
TListe<T: TBasis> = class(TObjectList<T>)
kannte ich nicht und kann nur mutmaßen, was dahinter steht.