probleme beim löschen von TList elementen

[1aa]

Zur Verwaltung mehrerer Streams habe ich mir eine Eigene Kleine Listenklasse erstellt
hinzufügen auslesen funktioniert alles ohne probleme nur beim löschen wirft es entweder die Fehlermeldung : " Ungültige Zeigeroperation" bzw wenn ich die Zeile (TObject(fInnerList.Items[i]).Free; ) weglasse habe ich logischer weise ein Speicherleak...
hab ich irgend was übersehen?

Delphi-Quellcode:

  TMyList = Class
    private
      fInnerList : TList;
      function GetItem(Index : Integer) : TStream;
      function GetCount : Integer;
    public
      constructor Create;
      destructor Destroy; override;
      function Add(aStream : TStream) : Integer;
      procedure Delete(Index : Integer);
      property Items[Index : Integer] : TStream read GetItem; default;
      property Count : Integer read GetCount;
  End;

.....

function TStreamList.Add;
begin
 Result := fInnerList.Add(tObject(aStream));
end;

constructor TStreamList.Create;
begin
  fInnerList := TList.create;
end;

procedure TStreamList.Delete(Index: Integer);
var i : Integer;
begin
i := Index;
 TObject(fInnerList.Items[i]).Free;  //<-- Scheint den fehler zu werfen
 fInnerList.Items[i] := nil;
 fInnerList.Delete(i);
end;

destructor TStreamList.Destroy;
begin
  fInnerList.Free;
  inherited;
end;

function TStreamList.GetCount: Integer;
begin
  Result := fInnerList.Count;
end;

function TStreamList.GetItem(Index: Integer): TStream;
begin
 Result := tStream(fInnerList.Items[Index]);
end;

[himitsu]

Wie fügst du die Streams hinzu?
Und was passiert mir den Streams, die du hinzugefügt hast? (also die in der Variable, welche an Add übergeben wurde)


Und warum keine TObjectList oder besser noch eine TObjectList<TStream> ?
(vorallem bei Letzerem kann deine komplette Klasse weg und auch bei Ersterem würde ich eher überschreiben/ableiten und nicht kapseln)

[1aa]

ok vergiss die frage. War mal wieder erst fragen dann denken. Hab den fehler gefunden, lag an einer Funktion mit der ich einen Stream hinzugefügt habe, da hatte ich noch ein .free drin des wegen ging es nicht.

Aber trotzdem danke!

PS: An alle noch ein gesundes neues Jahr
PPS An die Rechtschreib Überwachung hoffentlich so genehm

[Popov]

Du hast paar Punkte und Kommas vergessen.

[Gutelo]

Code:

procedure OnTerminate();
begin
  Rechtschreibung.Free;
end;