Generics als Parameter in Methode

[Martin W]

Hallo,

folgendes Problem:

Code:

type
  TRot = class (TObject)
  end;

type 
  TBlau = class (TObject)
  end;

type
  TGelb = class (TObject)
  end;

ctype
  TMain = class (Tobject)
  private
    procedure LoadObject<T: class>(aObject: T);
  end;

procedure TMain.LoadObject<T>(aObject: T);
begin
    aObject := T.Create;
end;

var
  Main: TMain;

Aufruf:

Code:

var
  Gelb: TGelb;
  Rot: TRot;  
begin
  Main := TMain.Create;
  Main.LoadObject<RGelb>(Gelb);
  Main.LoadObject<TRot>(Rot)
end;

Danach sollte Gelb als TGelb initialisiert und Rot als TRot initialisiert worden sein. Funktioniert aber leider nicht... habe ich etwas grundlegendes falsch verstanden?

Martin

[Stevie]

Mach mal nen var Parameter draus

[Panthrax]

procedure TMain.LoadObject<T: class, constructor>(out aObject: T);

[Martin W]

In beiden Fällen kommt die Meldung:

Code:

[DCC Fehler] uObjCore.pas(1685): E2568 Neue Instanz kann ohne CONSTRUCTOR-Einschränkung in der Typparameterdeklaration nicht erstellt werden

in der Zeile

Code:

aObject := T.Create;

Es scheint in die Richtung zu gehen:

http://docwiki.embarcadero.com/RADSt...n_%28Delphi%29

[Codewalker]

Die Fehlermeldung klingt doch ziemlich konkret. Definiere TMain mal als:

Code:

type
  TMain = class (Tobject)
  private
    procedure LoadObject<T: class, constructor>(aObject: T);
  end;

Mit dem zusätzlichen Constraint auf constructor sollte es gehen.

Edit: Genau diese Lösung steht doch auch in der Wiki-Page die du verlinkt hast...

[Martin W]

Danke, wollte ich auch gerade posten

Danke für eure Hilfe!

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TMain.LoadObject<T>(aObject: T);
begin
    aObject := T.Create;
end;

Wie gesagt, ohne Var/Out-Parameter, oder als als Funktion, ist das nicht wirklich funktionsfähig.



Oder der ganz normale und überall übliche Weg, ohne Generics.

Delphi-Quellcode:

type
  TBasisClass = class of TBasis;
  TBasis = class
    constructor Create; virtual; // eventuell auch noch abstract
  end;

  TRot = class(TBasis)
  end;

function TMain.CreateObject(T: TBasisClass);
begin
  Result := T.Create;
end;

X := TMain.CreateObject(TRot);

Ich vermute auch, das es, ohne eine virtuellen Contructor, selbst bei den Generics nicht funktionieren wird.
OK, oder man sucht sich über die neu/erweiterte RTTI den entsprechenden Constructor raus und nutzt Diesen.