Freigeben -> AV; Bearbeiten -> Nichts weiter

[dataspider]

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