From 6fcf8dcda3c9b05d0a5fb80689fa3e5e5f966b5c Mon Sep 17 00:00:00 2001
From: sg <sg>
Date: Tue, 8 Aug 2000 22:11:45 +0000
Subject: [PATCH] * Added declarations for WideString utility functions

---
 rtl/inc/systemh.inc | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 398a89f771..f3d07e144d 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -292,6 +292,19 @@ Procedure Delete (Var S : AnsiString; Index,Size: Longint);
 Function StringOfChar(c : char;l : longint) : AnsiString;
 
 
+{****************************************************************************
+                             WideString Handling
+****************************************************************************}
+
+Procedure SetLength (Var S : WideString; l : Longint);
+Procedure UniqueString (Var S : WideString);
+Function  Length (Const S : WideString) : Longint;
+Function  Copy (Const S : WideString; Index,Size : Longint) : WideString;
+Function  Pos (Const Substr : WideString; Const Source : WideString) : Longint;
+Procedure Insert (Const Source : WideString; Var S : WideString; Index : Longint);
+Procedure Delete (Var S : WideString; Index,Size: Longint);
+
+
 {****************************************************************************
                           Untyped File Management
 ****************************************************************************}
@@ -443,7 +456,10 @@ const
 
 {
   $Log$
-  Revision 1.3  2000-07-14 10:33:10  michael
+  Revision 1.4  2000-08-08 22:11:45  sg
+  * Added declarations for WideString utility functions
+
+  Revision 1.3  2000/07/14 10:33:10  michael
   + Conditionals fixed
 
   Revision 1.2  2000/07/13 11:33:45  michael