paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

chmhelp: Add resource protection block to TIpChmDataProvider.BuildURL

Browse Source 
git-svn-id: trunk@56129 -
This commit is contained in:
wp 2017-10-18 17:49:55 +00:00
parent faa58c53b1
commit 11aad71dab
1 changed files with 28 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/chmhelp/lhelp/chmdataprovider.pas
View File

@ -195,6 +195,7 @@ begin
end;
ParentDirs := GetDirsParents(OldURL);
try
RemoveDirCount := 0;
repeat
X := Pos('../', fNewURL);
@ -223,8 +224,10 @@ begin
Delete(Result, X, 1);
until X = 0;
finally
ParentDirs.Free;
//WriteLn('res = ', Result);
end;
end;
function TIpChmDataProvider.GetDirsParents(ADir: String): TStringList;