mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-07 14:38:01 +02:00
lazutils: simplified
git-svn-id: trunk@53403 -
This commit is contained in:
parent
0e82e34295
commit
e53ad0a63b
@ -958,17 +958,16 @@ begin
|
||||
if (FileInfo.Name='.') or (FileInfo.Name='..') or (FileInfo.Name='')
|
||||
then
|
||||
continue;
|
||||
if LazFileUtils.CompareFilenamesIgnoreCase(FileInfo.Name,ShortFilename)=0 then begin
|
||||
if FileInfo.Name=ShortFilename then begin
|
||||
// fits exactly
|
||||
//Don't return (unaltered) Filename: otherwise possible changes by ResolveDots get lost
|
||||
Result:=CurDir+FileInfo.Name;
|
||||
break;
|
||||
end;
|
||||
// fits case insensitive
|
||||
if LazFileUtils.CompareFilenamesIgnoreCase(FileInfo.Name,ShortFilename)<>0 then
|
||||
continue;
|
||||
if FileInfo.Name=ShortFilename then begin
|
||||
// fits exactly
|
||||
//Don't return (unaltered) Filename: otherwise possible changes by ResolveDots get lost
|
||||
Result:=CurDir+FileInfo.Name;
|
||||
// search further
|
||||
break;
|
||||
end;
|
||||
// fits case insensitive
|
||||
Result:=CurDir+FileInfo.Name;
|
||||
until LazFileUtils.FindNextUTF8(FileInfo)<>0;
|
||||
end;
|
||||
LazFileUtils.FindCloseUTF8(FileInfo);
|
||||
|
BIN
ide/lazarus.res
BIN
ide/lazarus.res
Binary file not shown.
Loading…
Reference in New Issue
Block a user