Anonymous recursions

Src/Myc.Utils.pas

@@ -0,0 +1,45 @@
+unit Myc.Utils;
+
+interface
+
+type
+    TManaged<T: class> = record
+    private
+        type
+            TObj = class(TInterfacedObject)
+                FValue: T;
+                constructor Create(AValue: T);
+                destructor Destroy; override;
+            end;
+        var
+            FIntf: IInterface;
+    public
+        class operator Implicit(A: T): TManaged<T>; overload;
+        class operator Implicit(const Upvalue: TManaged<T>): T; overload;
+    end;
+
+implementation
+
+constructor TManaged<T>.TObj.Create(AValue: T);
+begin
+    inherited Create;
+    FValue := AValue;
+end;
+
+destructor TManaged<T>.TObj.Destroy;
+begin
+    FValue.Free;
+    inherited;
+end;
+
+class operator TManaged<T>.Implicit(A: T): TManaged<T>;
+begin
+    Result.FIntf := TObj.Create(A);
+end;
+
+class operator TManaged<T>.Implicit(const Upvalue: TManaged<T>): T;
+begin
+    Result := (Upvalue.FIntf as TObj).FValue;
+end;
+
+end.