paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 04:37:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

New UTF8 comparison routines

Browse Source 
git-svn-id: trunk@32731 -
This commit is contained in:
sekelsenmat 2011-10-07 08:31:57 +00:00
parent e56a01d6a6
commit a2f5ce2791
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazutils/lazutf8.pas
View File

@ -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;