Browse Source

* Ansi* functions are now assigned to widestringmanager

git-svn-id: trunk@1041 -
florian 20 years ago
parent
commit
28d2110478
1 changed files with 10 additions and 1 deletions
  1. 10 1
      rtl/win32/sysutils.pp

+ 10 - 1
rtl/win32/sysutils.pp

@@ -1137,10 +1137,19 @@ procedure InitWin32Widestrings;
   begin
     widestringmanager.CompareWideStringProc:=@Win32CompareWideString;
     widestringmanager.CompareTextWideStringProc:=@Win32CompareTextWideString;
+    widestringmanager.UpperAnsiStringProc:=@Win32AnsiUpperCase;
+    widestringmanager.LowerAnsiStringProc:=@Win32AnsiLowerCase;
+    widestringmanager.CompareStrAnsiStringProc:=@Win32AnsiCompareStr;
+    widestringmanager.CompareTextAnsiStringProc:=@Win32AnsiCompareText;
+    widestringmanager.StrCompAnsiStringProc:=@Win32AnsiStrComp;
+    widestringmanager.StrICompAnsiStringProc:=@Win32AnsiStrIComp;
+    widestringmanager.StrLCompAnsiStringProc:=@Win32AnsiStrLComp;
+    widestringmanager.StrLICompAnsiStringProc:=@Win32AnsiStrLIComp;
+    widestringmanager.StrLowerAnsiStringProc:=@Win32AnsiStrLower;
+    widestringmanager.StrUpperAnsiStringProc:=@Win32AnsiStrUpper;
   end;
 
 
-
 Initialization
   InitWin32Widestrings;
   InitExceptions;       { Initialize exceptions. OS independent }