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