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

IDE: fixed searching Pascal files case insensitive

Browse Source 
git-svn-id: trunk@53400 -
This commit is contained in:
mattias 2016-11-21 15:58:43 +00:00
parent ad08369c4a
commit 28991b109d
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/ideprocs.pp
View File

@ -330,7 +330,7 @@ end;
function FindFilesCaseInsensitive(const Directory,
CaseInsensitiveFilename: string; IgnoreExact: boolean): TStringLists;
Search case insensitive in Directory for all files
Search Pascal case insensitive in Directory for all files
named CaseInsensitiveFilename
-------------------------------------------------------------------------------}
function FindFilesCaseInsensitive(const Directory,
@ -346,7 +346,7 @@ begin
// check if special file
if (FileInfo.Name='.') or (FileInfo.Name='..') or (FileInfo.Name='') then
continue;
if (CompareFilenamesIgnoreCase(CaseInsensitiveFilename,FileInfo.Name)=0)
if (CompareText(CaseInsensitiveFilename,FileInfo.Name)=0) // Pascal insensitibity, not UTF-8, thing about Turkish I
and ((not IgnoreExact)
or (CompareFilenames(CaseInsensitiveFilename,FileInfo.Name)<>0))
then begin

4
ide/project.pp
View File

@ -5546,8 +5546,8 @@ var
AFileName:=ExtractFilename(AFileName);
if siffCaseSensitive in SearchFlags then
Result:=SearchedFilename=AFilename
else
Result:=CompareFilenamesIgnoreCase(SearchedFilename,AFilename)=0;
else // check Pascal case insensitivity (CompareText, do not use CompareFilenamesIgnoreCase, because of Turkish I)
Result:=CompareText(SearchedFilename,AFilename)=0;
end;
begin