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

Use Utf8CompareText instead of AnsiCompare

Browse Source 
git-svn-id: trunk@37760 -
This commit is contained in:
martin 2012-06-24 14:57:26 +00:00
parent 71e80a4383
commit 8b57f2995c
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/fileutil.inc
View File

@ -168,7 +168,7 @@ begin
CFRelease(F2); CFRelease(F2);
{$ELSE} {$ELSE}
{$IFDEF CaseInsensitiveFilenames} {$IFDEF CaseInsensitiveFilenames}
Result:=AnsiCompareText(Filename1, Filename2); Result:=UTF8CompareText(Filename1, Filename2);
{$ELSE} {$ELSE}
Result:=CompareStr(Filename1, Filename2); Result:=CompareStr(Filename1, Filename2);
{$ENDIF} {$ENDIF}