if Assigned(FAnsagenListe) then FAnsagenListe.Free;
Die Abfrage auf
Assigned ist überflüssig, da das direkt in
Free abgefangen wird:
Delphi-Quellcode:
procedure TObject.Free;
begin
// under ARC, this method isn't actually called since the compiler translates
// the call to be a mere nil assignment to the instance variable, which then calls _InstClear
{$IFNDEF AUTOREFCOUNT}
if Self <> nil then
Destroy;
{$ENDIF}
end;