Testen ob ein Objekt bereits erzeugt wurde

[ThE_-_BliZZarD]

Hallo liebe Delphigemeinde,

zwar simpel aber mir fällt es leider nicht mehr ein.

Wie kann ich testen, ob ein Objekt bereits erzeugt wurde?

Z.b.:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    FMyTestSList: TStringList;

  // [...]
  implementation

procedure TMyTest.DoSomething();
begin
   // hier würde ich jetzt gerne testen ob das Objekt bereits durch
   FMyTestSList := TStringList.Create;
   // erzeugt wurde, und nur wenn dies noch nicht geschehen ist den Create() Befehl ausführen.

end;

Ich habe es mal probeweise mit SizeOf() probiert, was aber wie erwartet nichts sinnvolles ergeben hat.


Mit freundlichen Grüßen,

BliZZarD

[freak4fun]

Delphi-Quellcode:

if not Assigned(FMyTestSList) then 
  FMyTestSList := TStringList.Create;

[ThE_-_BliZZarD]

*Kopf-meets-Tischplatte*

Ok danke, ich wusste doch das es einfach war

// Noobfrage schließen

[himitsu]

Assigned(obj) entspricht bei Objekten einem (obj <> nil).

PS: das geht aber nur, wenn vorher die Variable auch "genullt" war.
(als Feld in einem Objekt ist dieses zum Glück standardmäßig der Fall, ansonsten mußt du explizit vorher obj:=nil; setzen)

Und Freigegeben wird das Objekt dann mit FreeAndNil(obj) (oder wieder von Hand obj.Free; und obj:=nil; ), also wenn nach dem Freigeben nochmals geprüft werden soll.

[generic]

Wenn du erreichen willst, dass ein Objekt nur einmal erzeugt wird, dann solltest du dir das Design Pattern "Singleton" anschauen.

[mjustin]

Zitat von generic:

Wenn du erreichen willst, dass ein Objekt nur einmal erzeugt wird, dann solltest du dir das Design Pattern "Singleton" anschauen.

Und dabei auch sicherstellen dass nicht zwei Threads das gleiche Singleton erstellen können - im RTL Code wird das selbst bei so simplen Dingen wie TEncoding.UTF8 (auch ein Singleton) gemacht, die einen unveränderbaren Zustand haben