paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* lowercase extension before comparison

Browse Source 
git-svn-id: trunk@37714 -
This commit is contained in:
marco 2017-12-11 19:51:24 +00:00
parent 04f0029b77
commit b41dafa618
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/chm/src/chmreader.pas
View File

@ -1641,7 +1641,7 @@ begin
end;
if not Result then begin
AFileName := ExtractFilePath(FileName[0])+AFileName;
if FileExists(AFileName) and (ExtractFileExt(AFileName) = '.chm') then OpenNewFile(AFileName);
if FileExists(AFileName) and (LowerCase(ExtractFileExt(AFileName)) = '.chm') then OpenNewFile(AFileName);
Result := True;
end;
end;