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

Instead of UTF8CompareText use AnsiCompareText which uses mostly system libraries.

Browse Source 
git-svn-id: trunk@64437 -
This commit is contained in:
juha 2021-01-29 19:58:55 +00:00
parent dfa3fe0ea4
commit c32adb1c7f
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazutils/lazfileutils.pas
View File

@ -259,7 +259,8 @@ begin
CFRelease(F1); CFRelease(F1);
CFRelease(F2); CFRelease(F2);
{$ELSE} {$ELSE}
Result:=UTF8CompareText(Filename1, Filename2); // AnsiCompareText uses UTF8CompareText on Windows, elsewhere system string manager.
Result:=AnsiCompareText(Filename1, Filename2);
{$ENDIF} {$ENDIF}
end; end;

2
lcl/interfaces/qt/qtprivate.pp
View File

@ -611,7 +611,7 @@ begin
while (L <= R) do while (L <= R) do
begin begin
I := L + (R - L) div 2; I := L + (R - L) div 2;
CompareRes := UTF8CompareText(S, Strings[I]); CompareRes := AnsiCompareText(S, Strings[I]);
if (CompareRes > 0) then if (CompareRes > 0) then
L := I + 1 L := I + 1
else else

2
lcl/interfaces/qt5/qtprivate.pp
View File

@ -615,7 +615,7 @@ begin
while (L <= R) do while (L <= R) do
begin begin
I := L + (R - L) div 2; I := L + (R - L) div 2;
CompareRes := UTF8CompareText(S, Strings[I]); CompareRes := AnsiCompareText(S, Strings[I]);
if (CompareRes > 0) then if (CompareRes > 0) then
L := I + 1 L := I + 1
else else