Abgesehn davon, dass
if assigned
bereits im Free eingebaut ist.
Zitat:
Delphi-Quellcode:
procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;
Ist an dieser Stelle es
immer Assigned.
Also nutzlos, da immer True und unnötig, weil Innen das gleiche Ergebnis.
Ausnahme ein kolossaler Fehler ala BufferOverun.
Und da ist die Prüfung eh egal, weil das Ergebnis keinen Wert besitzt, wenn der Programmcode und/oder Arbeitspeicher korrupt sind.