paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 19:16:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: comments

Browse Source 
git-svn-id: trunk@49664 -
This commit is contained in:
mattias 2015-08-13 10:13:05 +00:00
parent 5dd2f13c9f
commit dcfae18d9a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazutils/lazutf8.pas
View File

@ -2951,8 +2951,9 @@ end;
{------------------------------------------------------------------------------
Name: UTF8CompareStr
Params: S1, S2 - UTF8 encoded strings
Returns: < 0 if S1 < S2, 0 if S1 = S2, > 0 if S2 > S1.
Compare 2 UTF8 encoded strings, case sensitive.
Returns: < 0 if S1 < S2, 0 if S1 = S2, > 0 if S1 > S2.
Compare two UTF8 encoded strings, case sensitive.
Internally it uses CompareMemRange, which returns -1 if a byte of S1 is lower than S2.
------------------------------------------------------------------------------}
function UTF8CompareStr(const S1, S2: string): PtrInt;
begin
@ -2988,10 +2989,11 @@ end;
{------------------------------------------------------------------------------
Name: UTF8CompareText
Params: S1, S2 - UTF8 encoded strings
Returns: < 0 if S1 < S2, 0 if S1 = S2, > 0 if S2 > S1.
Compare 2 UTF8 encoded strings, case insensitive.
Returns: < 0 if S1 < S2, 0 if S1 = S2, > 0 if S1 > S2.
Compare two UTF8 encoded strings, case insensitive.
Note: Use this function instead of AnsiCompareText.
This function guarantees proper collation on all supported platforms.
Internally it uses UTF8CompareStr.
------------------------------------------------------------------------------}
function UTF8CompareText(const S1, S2: string): PtrInt;
var