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

LazUtils: Make sure CompareText comes from SysUtils. Issue #40814.

Browse Source 
(cherry picked from commit 5e2a753239)
This commit is contained in:
Juha 2024-03-02 12:28:12 +02:00 committed by Maxim Ganetsky
parent 6b7cc9b72f
commit 1b4af8a4d7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazfileutils.pas
View File

@ -384,7 +384,7 @@ begin
if CaseSensitive then if CaseSensitive then
Result := CompareStr(FnExt, Ext) Result := CompareStr(FnExt, Ext)
else else
Result := CompareText(FnExt, Ext); Result := SysUtils.CompareText(FnExt, Ext); // SysUtils needed for Darwin-i386
if Result < 0 then if Result < 0 then
Result := -1 Result := -1
else if Result > 0 then else if Result > 0 then