Delphi-Quellcode:
uses TypInfo;
procedure TKlasseB<T>.EineMethode;
var Typ: TKlasseAClass;
tmp: T;
begin
Typ:= TKlasseAClass(T).ClassType;
tmp:= Typ.Create(self);
end;
Hast du deinen Code mal getestet?^^ Delphi mag das casten von T nicht sonderlich gerne.
Es funktioniert so leider nicht.
Es gibt bei den Generics leider keine Einschränkungen, wo man etws auf eine bestimmte Klasse (eventuell inklusive Nachfahren) beschränken kann.
Was man maximal sagen kann ist, daß es irgendeine eine Klasse ein soll.
Nein, man kann tatsächlich folgendes machen:
Delphi-Quellcode:
TGeneric<T: TForm> = class
end;
Und dann meckert der Compiler, wenn man versucht eine TGeneric-Variable mit einem Typ T zu deklarieren, der nicht von TForm erbt. Man kann dann auch eigentlich in Methoden von TGeneric auf die Methoden von TForm zugreifen bei T-Objekten.
Das allgemeine ist:
Delphi-Quellcode:
TGeneric<T: class> = class
end;
Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."