Browse Source

--- Merging r15520 into '.':
U packages/chm/src/chmreader.pas

# revisions: 15520
------------------------------------------------------------------------
r15520 | marco | 2010-07-03 19:10:20 +0200 (Sat, 03 Jul 2010) | 2 lines
Changed paths:
M /trunk/packages/chm/src/chmreader.pas

* Remove leading / from LookupTopicByID. Mantis 16688 patch by Zilvinas Ledas.

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@15522 -

marco 15 năm trước cách đây
mục cha
commit
a49cc51368
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  1. 1 1
      packages/chm/src/chmreader.pas

+ 1 - 1
packages/chm/src/chmreader.pas

@@ -472,7 +472,7 @@ begin
   fURLSTRStream.ReadDWord;
   fURLSTRStream.ReadDWord;
   if fURLSTRStream.Position < fURLSTRStream.Size-1 then
-    Result := '/'+PChar(fURLSTRStream.Memory+fURLSTRStream.Position);
+    Result := PChar(fURLSTRStream.Memory+fURLSTRStream.Position);
 end;
 
 function TChmReader.CheckCommonStreams: Boolean;