Hi,
vielleicht bin ich ja völlig auf dem falschen Dampfer, aber dein Code muss eine
Exception werfen, wenn OwnObjects True ist:
Delphi-Quellcode:
Kursliste[0].Free;
// Oder
Kursliste.Delete(0);
Aus TObjectList:
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;
TObject(Ptr) hast du ja schon freigegeben.
Cu, Frank