Hallo,
ich habe eine TThreadList, der pro Sekunde bis zu 300 Items hinzugefügt werden. Dementsprechend hoch kann auch die Zahl der Items in der Liste sein, wenn diese länger nicht geleert wird. Die Liste zu leeren sollte an sich kein großes Problem sein. Aber wie gebe ich dabei die Objekte frei, die in von Liste verwaltet werden?
Darf ich bei einer sehr langen Liste, die geleert werden muss, die Objekte in einer Schleife innerhalb des geloockten Bereichts freigeben?
Ich meine, bei einer so großen Zahl der neuen Objekte, die hinzufügt werden müssen, sollte die Liste nicht so lange blockiert werden, oder? Anderseits, sehe ich keine andere Möglichkeit, dies zu vermeiden, da ich auf die Objekte in der Liste sowieso erst zugreifen kann, wenn diese blockiert ist.
Wie würdet Ihr vorgehen? Was wäredie schnellste und perfomanteste Methode, eine TThreadList zu leeren und alle Objekte freizugeben?
So etwa habe ich mir das vorgestellt:
Delphi-Quellcode:
procedure TImmObjects.Clear;
var
List: TList;
i: integer;
begin
List := TImmList.LockList;
try
for i := 0 to List.Count - 1 do
begin
if Assigned(List.Item[i]) then
TImmObject(List.Item[i]).Free;
end;
List.Clear;
finally
TImmList.UnlockList;
end;
end;
In diesem Fall bleibt die Liste über eine längere Zeit blockiert. Ob das so in Ordnung ist?