From a2f5ce279164daa84e2be685351c9d30ed3d8d19 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Fri, 7 Oct 2011 08:31:57 +0000
Subject: [PATCH] New UTF8 comparison routines

git-svn-id: trunk@32731 -
---
 components/lazutils/lazutf8.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/components/lazutils/lazutf8.pas b/components/lazutils/lazutf8.pas
index 8441354358..402f486c72 100644
--- a/components/lazutils/lazutf8.pas
+++ b/components/lazutils/lazutf8.pas
@@ -1123,10 +1123,6 @@ begin
           NewCharLen := 1;
           CharProcessed := True;
         end;
-      end
-      else if CharLen = 3 then
-      begin
-        //
       end;
 
       // Copy the character if the string was disaligned by previous changed
@@ -1264,7 +1260,7 @@ end;
  ------------------------------------------------------------------------------}
 function UTF8CompareStr(const S1, S2: utf8string): Integer;
 begin
-  //Result := WideCompareStr(UTF8ToUTF16(S1), UTF8ToUTF16(S2));
+  Result := SysUtils.CompareStr(S1, S2);
 end;
 
 {------------------------------------------------------------------------------
@@ -1276,8 +1272,12 @@ end;
   This function guarantees proper collation on all supported platforms.
  ------------------------------------------------------------------------------}
 function UTF8CompareText(const S1, S2: utf8string): Integer;
+var
+  S1Lower, S2Lower: utf8string;
 begin
-  //Result := WideCompareText(UTF8ToUTF16(S1), UTF8ToUTF16(S2));
+  S1Lower := UTF8LowerCase(S1);
+  S2Lower := UTF8LowerCase(S2);
+  Result := UTF8CompareStr(S1Lower, S2Lower);
 end;
 
 procedure InternalInit;