paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-27 22:57:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed comparing file names case insensitive

Browse Source 
git-svn-id: trunk@37753 -
This commit is contained in:
mattias 2012-06-24 06:48:35 +00:00
parent 7185755781
commit 72a324323b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/ideprocs.pp
View File

@ -371,7 +371,7 @@ begin
// check if special file // check if special file
if (FileInfo.Name='.') or (FileInfo.Name='..') or (FileInfo.Name='') then if (FileInfo.Name='.') or (FileInfo.Name='..') or (FileInfo.Name='') then
continue; continue;
if (AnsiCompareText(CaseInsensitiveFilename,FileInfo.Name)=0) if (CompareFilenamesIgnoreCase(CaseInsensitiveFilename,FileInfo.Name)=0)
and ((not IgnoreExact) and ((not IgnoreExact)
or (CompareFilenames(CaseInsensitiveFilename,FileInfo.Name)<>0)) or (CompareFilenames(CaseInsensitiveFilename,FileInfo.Name)<>0))
then begin then begin

2
ide/project.pp
View File

@ -5544,7 +5544,7 @@ var
if siffCaseSensitive in SearchFlags then if siffCaseSensitive in SearchFlags then
Result:=SearchedFilename=AFilename Result:=SearchedFilename=AFilename
else else
Result:=AnsiCompareText(SearchedFilename,AFilename)=0; Result:=CompareFilenamesIgnoreCase(SearchedFilename,AFilename)=0;
end; end;
begin begin