Michael Schimmel
46 lines
952 B
ObjectPascal
46 lines
952 B
ObjectPascal
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.
|