Changeset 329 for branches/2.19_branch/NewView/HelpFile.pas

Timestamp:

Aug 17, 2008, 8:23:09 PM (17 years ago)

Author:

RBRi

Message:

incorporate small fixes already done in head

File:

• branches/2.19_branch/NewView/HelpFile.pas (modified) (3 diffs)

branches/2.19_branch/NewView/HelpFile.pas

@@ -681 +681 @@
 var
   i: longint;
+  tmpIndex: String;
 begin
   result := nil;
@@ -686 +687 @@
   for i := 0 to _Index.Count - 1 do
   begin
-    if StrStartsWithIgnoringCase( SearchText, _Index.ValuePtrs[ i ] ^ ) then
+    tmpIndex := _Index.ValuePtrs[i]^; 
+    if StrStartsWithIgnoringCase(tmpIndex, SearchText) then
     begin
       // found
@@ -730 +732 @@
       if tmpLevel = tmpTopic.ContentsLevel then
       begin
-        if StrStartsWithIgnoringCase( SearchText, tmpTopic.TitlePtr ^ ) then
+        if StrStartsWithIgnoringCase(tmpTopic.TitlePtr^, SearchText) then
         begin
           result := tmpTopic;