Changeset 124 for trunk/NewView/HelpFile.pas

Timestamp:

Apr 27, 2007, 8:42:34 PM (18 years ago)

Author:

RBRi

Message:

changed to use StringUtilsUnit

File:

• trunk/NewView/HelpFile.pas (modified) (3 diffs)

trunk/NewView/HelpFile.pas

@@ -156 +156 @@
 uses
   BseErr,
+  StringUtilsUnit,
   DebugUnit,
   ACLStringUtility,
@@ -671 +672 @@
   for i := 0 to _Index.Count - 1 do
   begin
-    if StrStarts( SearchText, _Index.ValuePtrs[ i ] ^ ) then
+    if StrStartsWithIgnoringCase( SearchText, _Index.ValuePtrs[ i ] ^ ) then
     begin
       // found
@@ -715 +716 @@
       if tmpLevel = tmpTopic.ContentsLevel then
       begin
-        if StrStarts( SearchText, tmpTopic.TitlePtr ^ ) then
+        if StrStartsWithIgnoringCase( SearchText, tmpTopic.TitlePtr ^ ) then
         begin
           result := tmpTopic;