Selbstersteller Typ, Fehler beim Beenden des Programms

[Boombuler]

Hi Leutz

ich schreib gerad an nem Typen (abgeleitet von TObject).
nun hab ich mir gedacht, wenn ich nich immer vorher den Typen mit

Delphi-Quellcode:

var 
 Blub:TBlub;
begin
 Blub := TBlub.create;
...

erstellen muss
schreib ich in die Proceduren usw. einfach noch die zeile:
if not assigned(self) then self.create; läuft auch prima soweit
nur gibts ne Zugrifsverletzung wenn ich das Programm beende...

Hat jemand n Plan woran das liegen könnte?

Greetz
Boombuler

[Luckie]

Wie und wo gibst du deine Klasse wieder frei?

[Boombuler]

Wie: ich geb die mit .Free wieder frei (bzw. FreeandNil hab beides probiert)
Wo: nachdem ich die benutzt habe

Greetz
Boombuler

[Robert_G]

Zitat von Boombuler:

schreib ich in die Proceduren usw. einfach noch die zeile:
if not assigned(self) then self.create; läuft auch prima soweit

Wie soll denn das gehen?
Self ist doch bereits der Zeiger auf die Instanz. Ein Self.Create() sollte nicht funktionieren können, da du ja nur von einem Typen eine Instanz erzeugen kannst.

Delphi-Quellcode:

var
  Blub, NochEinBlub :TBlub;
begin
  Blub := TBlub.Create(); // geht
  NochEinBlub := Blub.Create() // kann natürlich nicht gehen ;)
  ...

[Boombuler]

Stimmt auffallend!

Gibt es überhaupt einen weg das zu umgehen?

[dizzy]

Nö, und eigentlich gehört dieses Verhalten zu den Kern-Konzepten der OOP

[Luckie]

Ich habe deswegen gefragt, wenn du im OnClose Self.Free aufrufst, dann gibst du das Formular frei und dann kracht es, weil die VCL beim beenden automatisch die Form freigibt.

[Boombuler]

Zitat von dizzy:

Nö, und eigentlich gehört dieses Verhalten zu den Kern-Konzepten der OOP

Schei* OOP

Greetz
Boombuler