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

components: chmhelp: DoOpenChm can leave fChms = nil in case of exception (e.g.: when file is locked)

Browse Source 
git-svn-id: trunk@21722 -
This commit is contained in:
paul 2009-09-16 00:14:52 +00:00
parent 4e3186459c
commit e2693b1724
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/chmhelp/lhelp/chmcontentprovider.pas
View File

@ -667,7 +667,11 @@ begin
//writeln(fURL);
LoadTOC := (fChms = nil) or (fChms.IndexOf(fFile) < 0);
DoOpenChm(fFile, False);
FileIndex := fChms.IndexOf(fFile);
// in case of exception fChms can be still = nil
if fChms <> nil then
FileIndex := fChms.IndexOf(fFile)
else
Exit;
if fURL <> '' then
DoLoadUri(MakeURI(fURL, fChms.Chm[FileIndex]))
else