mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Count() in TThreadObjectList

Browse source
This commit is contained in:
rich2014 2026-06-15 13:08:57 +08:00
commit 9b49371938
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/uclassesex.pas
View file

@ -73,6 +73,7 @@ type
procedure Clear;
function Clone: TObjectList;
function Add(AObject: TObjectEx): Integer;
function Count: Integer;
function LockList: TObjectList;
procedure UnlockList;
end;
@ -141,6 +142,12 @@ begin
Result:= FList.Add(AObject);
end;
function TThreadObjectList.Count: Integer;
begin
// no need to lock
Result:= FList.Count;
end;
function TThreadObjectList.LockList: TObjectList;
begin
Result:= FList;