Ich habe eine Klasse mit ziemlich vielen Feldern, die ich bei einem
Clear
alle händisch zurücksetzen müsste.
Da liegt es nahe, einfach im
Clear
ein
Free
und danach ein
Create
zu schreiben.
Das Free klappt auch, aber wenn ich danach
Self := TDingsbums.Create
schreibe, dann meint der Compiler, "Self" würde nie benutzt.
Spaßeshalber habe ich mal versucht, eine Instanz einfach in einer ihrer Methoden freizugeben und wieder zu erzeugen. Also ungefähr so:
Delphi-Quellcode:
TCorona = class(TObject)
procedure VirusBeißtZu;
end;
var Corona:TCorona;
...
procedure TCorona.VirusBeißtZu;
begin
Corona.Free;
Corona := TCorona.Create;
end;
Zu meinem Erstaunen scheint das zu funktionieren.
Was ist von alledem zu halten?