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

codetools: fixed FilenameIsMatching on Windows

Browse Source
This commit is contained in:
mattias 2023-08-06 00:31:09 +02:00
parent 74a2cba2e2
commit a0fddef59c
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/codetools/fileprocs.pas
View File

@ -1400,8 +1400,11 @@ function FilenameIsMatching(const Mask, Filename: string;
begin begin
if Filename='' then exit(false); if Filename='' then exit(false);
if Mask='' then exit(true); if Mask='' then exit(true);
{$IFDEF CaseInsensitiveFilenames}
AnyCase:=false; // the anycase compares case sensitive, but not apply UTF-8 normalization, e.g. MacOS, so better use the default
{$ENDIF}
{$IFDEF VerboseFilenameIsMatching} {$IFDEF VerboseFilenameIsMatching}
debugln(['FilenameIsMatching2 Mask="',Mask,'" File="',Filename,'" Exactly=',MatchExactly]); debugln(['FilenameIsMatching Mask="',Mask,'" File="',Filename,'" Exactly=',MatchExactly]);
{$ENDIF} {$ENDIF}
Result:=Check(PChar(Mask),PChar(Filename)); Result:=Check(PChar(Mask),PChar(Filename));