Delphi 11 versteht mein generic nicht mehr

[Elrond]

Hallo Zusammen,

ich habe heute neben meiner Delphi Version 10.3 die neue 11 installiert und wollte schauen ob mein Projekt durchcompliert.

Es hat sich scheinbar im Umgang mit generics etwas geändert, weswegen er bei meiner generische Implementierung eines Singleton scheitert und mir den Fehler liefert:

E2010 Inkompatible Typen: 'TObject' und 'T'

Hier der vollständige kurze Quelltext:

Delphi-Quellcode:

type 
  IOrModel = interface
    ['{2901ade0-0373-491a-8624-1ece11c1ddbd}']
  end;

  TModel<T: IOrModel, constructor> = class abstract
  private
    class var Model: T;

  public
    class function GetInstance: T;
    class procedure ReleaseInstance();
  end;

implementation

class function TModel<T>.GetInstance: T;
begin
  if not Assigned(Model) then
    Model := T.Create;

  Result := Model;
end;

class procedure TModel<T>.ReleaseInstance;
begin
  if Assigned(Self.Model) then
  begin
   FreeAndNil(Self.Model);//für hier kommt die Fehlermeldung
  end;

end;

end.

Hat jemand eine Idee was sich geändert hat? Konnte in den Updatenotes nichts finden.

Viele Grüße
Alexander

[Rollo62]

T: IOrModel Ist ein Interface, da sollte Self.Model := nil; reichen.

[Uwe Raabe]

Das wurde schon in 10.4 geändert: FreeAndNil

[sakura]

Zitat von Uwe Raabe:

Das wurde schon in 10.4 geändert: FreeAndNil

Das es vorher kompilierte, das war ein Bug und hätte in Deinem Fall eigentlich zu einer AV führen sollen.

......

[Stevie]

Zitat von Rollo62:

T: IOrModel Ist ein Interface, da sollte Self.Model := nil; reichen.

Zitat von sakura:

Dass es vorher kompilierte, das war ein Bug und hätte in Deinem Fall eigentlich zu einer AV führen sollen.

Nein, der constructor Contraint sorgt dafür, dass es sich bei T nur um eine Klasse handeln kann. Diese muss nur auch das IOrModel Interface implementieren - da ich davon ausgehe, dass der Code bisher funktioniert, werden diese Klassen dann wohl keine Referenzzählung implementieren.

@Elrond:
Füge einfach noch den class constraint zu T hinzu, dann merkt der Compiler, dass es sich nur um ein Objekt handeln kann und ist zufrieden.

[Elrond]

Zitat von Stevie:

@Elrond:
Füge einfach noch den class constraint zu T hinzu, dann merkt der Compiler, dass es sich nur um ein Objekt handeln kann und ist zufrieden.

Super das hat geklappt

Kleine Anmerkung noch, kann es sein das die Angabe von constructor deswegen nicht mehr reicht, weil jetzt auch Records Konstruktoren haben dürfen?

[Elrond]

Danke für die Antworten!

Was ich mich aber Frage, dieses Singleton ist eine abstrakte Klasse und die Klassen die davon abgeleitet sind, verzichten auf eine Referenzzählung.
Damit würde ich eigentlich das Objekt nicht mehr freigeben und müsste die Referenzzählung wieder aktivieren.