paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 21:20:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtf8: honour CaseSensitive in TStringListUTF8Fast.DoCompareText.

Browse Source 
(cherry picked from commit c67c745669)
This commit is contained in:
Bart 2022-11-23 14:23:03 +01:00 committed by Maxim Ganetsky
parent 1e8dd57dd1
commit 861e84ae25
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

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