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

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

Browse Source
This commit is contained in:
Juha 2024-03-02 12:28:12 +02:00
parent deb0488a9f
commit 5e2a753239
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