* simple clear functions for some types.

git-svn-id: trunk@40213 -

packages/fcl-stl/src/gdeque.pp

@@ -34,6 +34,7 @@ type
   public
     function Size():SizeUInt;inline;
     constructor Create();
+    Procedure  Clear;
     procedure PushBack(value:T);inline;
     procedure PushFront(value:T);inline;
     procedure PopBack();inline;
@@ -58,6 +59,12 @@ begin
   FStart:=0;
 end;
 
+procedure TDeque.Clear;
+begin
+ FDataSize:=0;
+ FStart:=0;
+end;
+
 function TDeque.Size():SizeUInt;inline;
 begin
   Size:=FDataSize;

packages/fcl-stl/src/gstack.pp

@@ -24,6 +24,7 @@ type
     type TContainer= specialize TVector<T>;
     var FData:TContainer;
     public
+    Procedure Clear;
     procedure Push(x:T);inline;
     procedure Pop();inline;
     function Top():T;inline;
@@ -40,6 +41,11 @@ begin
   FData:=TContainer.Create;
 end;
 
+Procedure TStack.Clear;
+begin
+  FData.Clear;
+end;
+
 destructor TStack.Destroy;
 begin
   FData.Destroy;