[Jcl-checkins-diff] SF.net SVN: jcl:[3871] trunk/jcl/source/prototypes/JclAlgorithms.pas

[<ou...@us...>]

Revision: 3871
          http://jcl.svn.sourceforge.net/jcl/?rev=3871&view=rev
Author:   outchy
Date:     2012-09-16 17:52:26 +0000 (Sun, 16 Sep 2012)
Log Message:
-----------
prototype update after revision 3830.

Revision Links:
--------------
    http://jcl.svn.sourceforge.net/jcl/?rev=3830&view=rev

Modified Paths:
--------------
    trunk/jcl/source/prototypes/JclAlgorithms.pas

Modified: trunk/jcl/source/prototypes/JclAlgorithms.pas
===================================================================
--- trunk/jcl/source/prototypes/JclAlgorithms.pas	2012-09-06 19:21:34 UTC (rev 3870)
+++ trunk/jcl/source/prototypes/JclAlgorithms.pas	2012-09-16 17:52:26 UTC (rev 3871)
@@ -327,7 +327,7 @@
       {$IFDEF SUPPORTS_UNICODE}
       Result := CompareText(Obj1, Obj2);
       {$ELSE ~SUPPORTS_UNICODE}
-      Result := WideCompareText(Obj1, Obj2);
+      {$IFDEF HAS_UNITSCOPE}System.{$ENDIF}SysUtils.WideCompareText(Obj1, Obj2);
       {$ENDIF ~SUPPORTS_UNICODE}
   else
     raise EJclOperationNotSupportedError.Create;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.