Hallo,
in einem Serializer lese ich Eigenschaftswerte aus für eine Reporting Funktion. Dabei wird ein InterfacedObject dem Serializer übergeben und der ruft dann alle Methoden auf und lässt sich die Werte zurück geben. In manchen Fällen werden auch Records zurück gegegeben die dann auch durchsucht werden nach Fields und Methods.
Funktioniert soweit alles bis auf einen Spezialfall: Wenn mein Interface eine Methode hat, das selbst ein Interface zurück gibt.
Delphi-Quellcode:
aValue := LMethod.Invoke(thing, []);
if aValue.Kind = tkInterface then
begin
var aTool: IWerkzeug;
aTool := LMethod.Invoke(thing, []).AsInterface as IWerkzeug;
if assigned(aTool) then
begin
aValue := TValue.From<IWerkzeug>(aTool);
end;
end;
die Bedingung "if assigned(aTool)" wird nie erfüllt. Also die getter Funktion die ein Objekt über das Interface "IWerkzeug" zurück gibt, wird aufgerufen, es wird ein Interface zurück gegeben, aber ohne Objekt. (aValue.Empty = true). Die KI Hilfe meint es wäre in Bug in Delphi...
Ich nutze Delphi 12.2 Professional.