Listen freigeben

[DeddyH]

Ein Blick in die Contnrs.pas bringt Folgendes zu Tage:

Zitat von Contnrs.pas Delphi 5:

Delphi-Quellcode:

procedure TObjectList.Notify(Ptr: Pointer; Action: TListNotification);
begin
  if OwnsObjects then
    if Action = lnDeleted then
      TObject(Ptr).Free;
  inherited Notify(Ptr, Action);
end;