probleme beim löschen von TList elementen
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 (
Delphi-Quellcode:
) weglasse habe ich logischer weise ein Speicherleak...
TObject(fInnerList.Items[i]).Free;
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; |
AW: probleme beim löschen von TList elementen
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) |
AW: probleme beim löschen von TList elementen
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 |
AW: probleme beim löschen von TList elementen
Du hast paar Punkte und Kommas vergessen.
|
AW: probleme beim löschen von TList elementen
Code:
procedure OnTerminate();
begin Rechtschreibung.Free; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:33 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz