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;