Jelajahi Sumber

Merged revisions 1041 via svnmerge from
/trunk

git-svn-id: branches/fixes_2_0@1123 -

peter 20 tahun lalu
induk
melakukan
08e7c30711
1 mengubah file dengan 10 tambahan dan 1 penghapusan
  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 }