paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 13:10:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

add TResourceCache.Clear

Browse Source 
git-svn-id: trunk@14797 -
This commit is contained in:
paul 2008-04-10 02:02:47 +00:00
parent c48bc3eba2
commit ea223b758a
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/lclrescache.pas
View File

@ -93,6 +93,7 @@ type
function ItemIsUsed(Item: TResourceCacheItem): boolean;
public
constructor Create;
procedure Clear;
destructor Destroy; override;
function CompareItems(Tree: TAvgLvlTree; Item1, Item2: Pointer): integer; virtual;
function CompareDescriptors(Tree: TAvgLvlTree; Desc1, Desc2: Pointer): integer; virtual; abstract;
@ -360,17 +361,22 @@ begin
FResourceCacheDescriptorClass:=TResourceCacheDescriptor;
end;
destructor TResourceCache.Destroy;
procedure TResourceCache.Clear;
begin
FDestroying:=true;
while FFirstUnusedItem<>nil do
FFirstUnusedItem.RemoveFromList(FFirstUnusedItem,FLastUnusedItem);
FItems.FreeAndClear;
FItems.Free;
FItems:=nil;
FDescriptors.FreeAndClear;
end;
destructor TResourceCache.Destroy;
begin
FDestroying := True;
Clear;
FItems.Free;
FItems := nil;
FDescriptors.Free;
FDescriptors:=nil;
FDescriptors := nil;
inherited Destroy;
end;