[GExperts-CVS] gexperts/unstable/Comps GpLists.pas,1.1,1.2

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Comps
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv10567/Comps

Modified Files:
	GpLists.pas 
Log Message:
     1.22a: 2006-09-29
       - Fixed nasty bug in TGpIntegerObjectList.AddObject and
         TGpInt64ObjectList.AddObject.
       - Fixed range errors in TGpInt64[Object]List.
     1.22: 2006-09-20
       - Implemented TGpInt64List and TGpInt64ObjectList.
     1.21: 2006-05-15
       - Implemented list of TMethod records - TGpTMethodList.
     1.20: 2006-04-24
       - Added method TGpIntegerObjectList.ExtractObject.
     1.19: 2005-11-18
       - Added D2005-style TGpIntegerList enumerator.
     1.18: 2005-10-27
       - Added TGpString class.
     1.17: 2005-06-02
       - Added methods FreeAll and UnlinkAll to the TGpDoublyLinkedList class.
     1.16: 2004-11-22
       - Added Dump/Restore mechanism to the TGpInteger[Object]List classes.
     1.15: 2004-09-09
       - Added method Remove to the TGpIntegerList class.

Index: GpLists.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpLists.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- GpLists.pas	5 Mar 2004 22:39:14 -0000	1.1
+++ GpLists.pas	22 Nov 2006 20:52:21 -0000	1.2
@@ -4,7 +4,7 @@
 
 This software is distributed under the BSD license.
 
-Copyright (c) 2003, Primoz Gabrijelcic
+Copyright (c) 2006, Primoz Gabrijelcic
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without modification,
@@ -30,10 +30,30 @@
 
    Author            : Primoz Gabrijelcic
[...1911 lines suppressed...]
   Lock;
@@ -1408,6 +2569,18 @@
   obj.Unlink;
 end; { TGpDoublyLinkedList.Unlink }
 
+{:Remove all elements from the list without destroying them.
+  @since   2005-06-02
+}
+procedure TGpDoublyLinkedList.UnlinkAll;
+begin
+  Lock;
+  try
+    while Tail <> nil do
+      RemoveFromTail;
+  finally Unlock; end;
+end; { TGpDoublyLinkedList.UnlinkAll }
+
 {:Called from the linked object when it is being unliniked from the list.
   @since   2003-10-28
 }