Hallo zusammen,
irgendwie bin ich gerade etwas verwirrt und zweifel an mir selbst, ob ich wohl die Objektorientierung nicht verstanden habe. Was mich wundern würde, weil meine Programme, in denen ich mit Vererbung und Co. rumspiele, eigentlich immer machen, was sie sollen, nur in diesem Fall nicht.
Die Situation: Ich erstelle eine Klasse, die von TList abstammt und die ich mit Objekten einer anderen Klaase fülle. Damit das ganze beim Freigeben der Liste wieder sauber aufgeräumt wird, überschreibe ich das Delete von TList und gebe dann dort das entsprechende Objekt frei (bitte jetzt keine Diskussion, ob eine TObjectList nicht sinnvoller wäre, darum gehts mir gerade nicht, sondern um ein Verständnisproblem
).
Problem: Obwohl das Destroy von TList ein Clear aufruft und dieses wiederum ein Delete, wird mein Delete nie ausgeführt und entsprechend auch das Objekt nie freigegeben. Noch schlimmer: Es wird noch nicht mal das Clear von TList ausgeführt.
Hier mal ein Beispiel-Code, der bei mir dieses Verhalten zeigt und somit zu einem Speicherleck führt:
Delphi-Quellcode:
program listenleeren;
{$APPTYPE CONSOLE}
uses
SysUtils, classes;
type
TSomeElement = class
randomNumber: integer;
end;
TSomeElementList = class(TList)
procedure Delete (index: integer);
procedure Fill (amount: integer);
procedure Write;
end;
// **********************************************
procedure TSomeElementList.Delete(index:integer);
begin
TSomeElement(items[index]).Free;
inherited;
end;
// **********************************************
procedure TSomeElementList.Fill(amount:integer);
var i: integer;
newElem: TSomeElement;
begin
for I := 0 to amount - 1 do begin
newElem:=TSomeElement.Create;
newElem.randomNumber:=random(1000);
add(newElem);
end;
end;
// **********************************************
procedure TsomeElementList.Write;
var i: integer;
begin
for I := 0 to Count - 1 do
writeln(TSomeElement(items[i]).randomNumber);
end;
// **********************************************
var SomeList: TSomeElementList;
begin
randomize;
RandSeed:=80;
SomeList:=TSomeElementList.Create;
SomeList.Fill(30);
SomeList.Write;
SomeList.Free;
end.
Irgendwas verstehe ich doch offenbar falsch, oder? Warum wird beim Aufruf von SomeList.Free kein Clear für die Liste durchgeführt?
Hoffe verzweifelt auf Tipps.
Bis denn
Bommel