paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ TLinkedList.RemoveAll

Browse Source 
git-svn-id: trunk@36323 -
This commit is contained in:
florian 2017-05-25 12:44:32 +00:00
parent c83e6991d5
commit 5e07957594
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cclasses.pas
View File

@ -378,6 +378,8 @@ type
procedure insertListcopy(p : TLinkedList); procedure insertListcopy(p : TLinkedList);
{ concats another List at the end and makes a copy } { concats another List at the end and makes a copy }
procedure concatListcopy(p : TLinkedList); procedure concatListcopy(p : TLinkedList);
{ removes all items from the list, the items are not freed }
procedure RemoveAll;
property First:TLinkedListItem read FFirst; property First:TLinkedListItem read FFirst;
property Last:TLinkedListItem read FLast; property Last:TLinkedListItem read FLast;
property Count:Integer read FCount; property Count:Integer read FCount;
@ -2356,6 +2358,14 @@ end;
end; end;
procedure TLinkedList.RemoveAll;
begin
FFirst:=nil;
FLast:=nil;
FCount:=0;
end;
{**************************************************************************** {****************************************************************************
TCmdStrListItem TCmdStrListItem
****************************************************************************} ****************************************************************************}