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

LazUtf8: honour CaseSensitive in TStringListUTF8Fast.DoCompareText.

Browse Source
This commit is contained in:
Bart 2022-11-23 14:23:03 +01:00
parent 86c08fcb3a
commit c67c745669
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazutils/lazutf8.pas
View File

@ -4159,7 +4159,10 @@ end;
function TStringListUTF8Fast.DoCompareText(const s1, s2: string): PtrInt; function TStringListUTF8Fast.DoCompareText(const s1, s2: string): PtrInt;
begin begin
Result:=UTF8CompareLatinTextFast(s1, s2); if CaseSensitive then
Result := Utf8CompareStr(s1, s2)
else
Result:=UTF8CompareLatinTextFast(s1, s2);
end; end;