+ Added overloaded version of SetWideStringManager without old parameter

rtl/inc/systemh.inc

@@ -538,6 +538,7 @@ Type
   end;
   
 Procedure GetWideStringManager (Var Manager : TWideStringManager);
+Procedure SetWideStringManager (Const New : TWideStringManager);
 Procedure SetWideStringManager (Const New : TWideStringManager; Var Old: TWideStringManager);
 
 {$endif HASWIDESTRING}
@@ -712,7 +713,10 @@ const
 
 {
   $Log$
-  Revision 1.79  2003-11-28 20:36:13  michael
+  Revision 1.80  2003-11-29 17:27:05  michael
+  + Added overloaded version of SetWideStringManager without old parameter
+
+  Revision 1.79  2003/11/28 20:36:13  michael
   + Added WideStringManager
 
   Revision 1.78  2003/11/15 19:01:27  florian

rtl/inc/wstrings.inc

@@ -100,6 +100,12 @@ Procedure SetWideStringManager (Const New : TWideStringManager; Var Old: TWideSt
 
 begin
   GetWideStringManager(Old);
+  SetWideStringManager(New);
+end;
+  
+Procedure SetWideStringManager (Const New : TWideStringManager);
+
+begin
   Wide2AnsiMoveProc:=New.Wide2AnsiMove;
   Ansi2WideMoveProc:=New.Ansi2WideMove;
 end;
@@ -1005,7 +1011,10 @@ end;
 
 {
   $Log$
-  Revision 1.33  2003-11-28 20:36:13  michael
+  Revision 1.34  2003-11-29 17:27:05  michael
+  + Added overloaded version of SetWideStringManager without old parameter
+
+  Revision 1.33  2003/11/28 20:36:13  michael
   + Added WideStringManager
 
   Revision 1.32  2003/11/05 15:33:51  florian