paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-16 11:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: TPointerToPointerTree.ClearWithFree

Browse Source 
git-svn-id: trunk@41951 -
This commit is contained in:
mattias 2013-07-01 11:14:38 +00:00
parent e16523559c
commit 69ae98e681
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazutils/avglvltree.pas
View File

@ -198,6 +198,7 @@ type
constructor Create;
destructor Destroy; override;
procedure Clear;
procedure ClearWithFree; // free Values with TObject(Value).Free
procedure Remove(Key: Pointer);
function Contains(const Key: Pointer): Boolean; inline;
function GetFirst(out Key, Value: Pointer): Boolean;
@ -2317,6 +2318,21 @@ begin
FItems.Clear;
end;
procedure TPointerToPointerTree.ClearWithFree;
var
Node: TAvgLvlTreeNode;
Item: PPointerToPointerItem;
begin
Node:=FItems.FindLowest;
while Node<>nil do begin
Item:=PPointerToPointerItem(Node.Data);
TObject(Item^.Value).Free;
Dispose(Item);
Node:=Node.Successor;
end;
FItems.Clear;
end;
procedure TPointerToPointerTree.Remove(Key: Pointer);
var
Node: TAvgLvlTreeNode;