Zugriffsverletzung bei TObjectlist.delete

[Jelly]

Also wenn das wirklich die gesamte Klasse ist, behaupte ich weiterhin dass, dass die Ableitung von TObjectList schon fast alles löst was Du versuchst komplitziert nachzubasteln. Hier mal ein ähnliches Beispiel:

Delphi-Quellcode:

unit untLieferschein;

interface
uses classes,  windows, contnrs, sysutils ;

type
  TLieferschein = class 
  TLieferscheine = class (TObjectList)
  private
    function GetItem(Index: Integer): TLieferschein;
    procedure SetItem(Index: Integer; const Value: TLieferschein);
  public
     constructor Create (AConnection : TADOConnection) ; overload ;
     property Items[Index: Integer]: TLieferschein read GetItem write SetItem; default;
  end;

implementation

function TLieferscheine.GetItem(Index: Integer): TLieferSchein;
begin
     Result := (inherited Items[Index]) as TLieferSchein ;
end;

procedure TLieferscheine.SetItem(Index: Integer; const Value: TLieferSchein);
begin
     inherited Items[Index] := Value ;
end;

end.