Changeset 124

Timestamp:

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

Author:

RBRi

Message:

changed to use StringUtilsUnit

Location:

trunk/NewView

Files:

• GlobalFilelistUnit.pas (modified) (3 diffs)
• HelpFile.pas (modified) (3 diffs)

trunk/NewView/GlobalFilelistUnit.pas

@@ -50 +50 @@
 
 uses
+  StringUtilsUnit,
   DebugUnit,
-  ACLStringUtility,
   SysUtils;
 
@@ -124 +124 @@
   while ( Result <> nil ) do
   begin
-    if ( StringsSame( StrPas( Result ^. FilePath ), FilePath ) ) then
+    if ( StrEqualIgnoringCase( StrPas( Result ^. FilePath ), FilePath ) ) then
     begin
       // found
@@ -164 +164 @@
     if ( pEntry ^. Window = Window ) then
     begin
-      if ( StringsSame( StrPas( pEntry ^. FilePath ), FilePath ) ) then
+      if ( StrEqualIgnoringCase( StrPas( pEntry ^. FilePath ), FilePath ) ) then
       begin
         // found

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;