Lazy Initialization im Type?

[TiGü]

Was denn für Codefragmente?

Ich kann mir folgende Lösung vorstellen:

Delphi-Quellcode:

type
  TFoo = class
  private
    FMyUnknownObject: IUnknownObject;
...

Delphi-Quellcode:

function TFoo.GetMyUnknownObject: IUnknownObject;
begin
  if not Assigned(FMyUnknownObject) then
    FMyUnknownObject := TMyUnknownObject.Create;

  Result := FMyUnknownObject;
end;

[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;

[Thomas_K]

Zitat:

Was denn für Codefragmente?

http://www.delphipraxis.net/183799-m...pertychanged#2 Einfach mal dort auf der Seite mit der Browser-Text-Suche nach "GetPropertyChanged" Ausschau halten.

Dort gibt es auch eine Sache die ich erst eben bemerkt habe, innerhalb des Objektes wird auch noch direkt auf die Feldvariabel zu gegriffen. FPropertyChanged.Invoke(..), was ich in dem unknown Beispiel nicht berücksichtig hatte.

@Stevie danke, für die Implementierung, wieder was gelernt.