Selbstersteller Typ, Fehler beim Beenden des Programms

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