ARC-sichere Zuweisung von self an Interface-Variable

[dpg123]

Erstmal vielen Dank für eure Beiträge!

Es scheint wirklich an der Deklaration von requestValue: IRequest in TRequest zu liegen. Deklariere ich sie in einer anderen Klasse geht es (Code siehe unten).

Ja, Sinn macht das so nicht. Hatte ich nur als Minimalbsp gewählt. Ich poste gleich mal die ausführlichere Version, dann wird es entweder klarer, oder ihr findet ne elegantere andere Lösung

[weak] kann ich nicht benutzen, da ich Turbo Delphi verwende (hab ich jetzt auch in mein Profil mal eingetragen...).

Delphi-Quellcode:

type

  IRequest = interface(IInterface)
  ['{AA14B3B9-9874-4E25-80BC-3C5A9A301ABC}']

    function get(): Extended;

  end;

  TRequestController = class(TObject)

    var

      requestValue: IRequest;

  end;


  TRequest = class(TInterfacedObject, IRequest)

    public

      function get(): Extended;

      constructor create( aRequestController: TRequestController );

  end;


  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TRequest }

constructor TRequest.create(  aRequestController: TRequestController );
begin

  inherited create();

  aRequestController.requestValue := Self;

end;

function TRequest.get: Extended;
begin
  result := 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  lReq: IRequest;
  lReqCon: TRequestController;
  
begin

  lReqCon := TRequestController.Create();

  lReq := TRequest.create(lReqCon);

  lReqCon.Free;

end;