Lazy Initialization im Type?

[Stevie]

Delphi-Quellcode:

type
  UnknownObject = record
  private
    fInstance: IUnknownObject;
    procedure EnsureInstance;
  public
    class operator Implicit(const value: UnknownObject): IUnknownObject;
    procedure UnknownObject;
  end;

procedure UnknownObject.EnsureInstance;
begin
  if not Assigned(fInstance) then
    fInstance := TUnknownObject.Create;
end;

class operator UnknownObject.Implicit(
  const value: UnknownObject): IUnknownObject;
begin
  value.EnsureInstance;
  Result := value.fInstance;
end;

procedure UnknownObject.UnknownObject;
begin
  EnsureInstance;
  fInstance.UnknownObject
end;