paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 11:59:30 +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

10
compiler/cclasses.pas
View File

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