Objekte aus generischem Typ erstellen

[Neutral General]

Zitat von webcss:

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.

Zitat von himitsu:

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