Browse Source

--- Merging r20493 into '.':
U packages/chm/src/chmfiftimain.pas

# revisions: 20493
------------------------------------------------------------------------
r20493 | andrew | 2012-03-10 14:47:43 +0100 (Sat, 10 Mar 2012) | 2 lines
Changed paths:
M /trunk/packages/chm/src/chmfiftimain.pas

Fixed chm search results for large chm search databases with > 2 node levels

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

git-svn-id: branches/fixes_2_6@20594 -

marco 13 years ago
parent
commit
a7a87ba5c6
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/chm/src/chmfiftimain.pas

+ 1 - 0
packages/chm/src/chmfiftimain.pas

@@ -1030,6 +1030,7 @@ begin
      //WriteLn('At Node Level ', NodeLevel);
      //WriteLn('At Node Level ', NodeLevel);
      if ReadIndexNodeEntry(LastWord, NewWord, NewNodePosition) <> False then
      if ReadIndexNodeEntry(LastWord, NewWord, NewNodePosition) <> False then
      begin
      begin
+       LastWord := NewWord;
        //WriteLn('Found Index Entry: ', NewWord, ' Comparing to ', AWord);
        //WriteLn('Found Index Entry: ', NewWord, ' Comparing to ', AWord);
        if  ChmCompareText(NewWord, AWord) >= 0 then
        if  ChmCompareText(NewWord, AWord) >= 0 then
        begin
        begin