Changeset 105 for trunk/NewView/StringUtilsUnit.pas

Timestamp:

Apr 5, 2007, 8:34:33 PM (18 years ago)

Author:

RBRi

Message:

%more stringutils refactoring

File:

• trunk/NewView/StringUtilsUnit.pas (modified) (5 diffs)

trunk/NewView/StringUtilsUnit.pas

@@ -13 +13 @@
 
 const
+  StrTAB = chr(9);
   StrCR = chr(13);
   StrLF = chr(10);
@@ -76 +77 @@
   Function StrLeftUntil(const aReceiver: String; const aSetOfChars: TSetOfChars) : String;
 
-  // returns true if the String starts with the provides one
+  // returns true if the String starts with the provided one
   // this is case SENSITIVE
   Function StrStartsWith(const aReceiver: String; const aStartString: String): Boolean;
 
-  // returns true if the String starts with the provides one
+  // returns true if the String starts with the provided one
   // this is case INsensitive
   Function StrStartsWithIgnoringCase(const aReceiver: String; const aStartString: String): Boolean;
@@ -88 +89 @@
   Function StrEndsWith(const aReceiver: String; const anEndString: String): Boolean;
 
-  // returns true if the String ends with the provides one
+  // returns true if the String ends with the provided one
   // this is case INsensitive
   Function StrEndsWithIgnoringCase(const aReceiver: String; const anEndString: String): Boolean;
+
+  // returns true if the Strings are the same
+  // this is case INsensitive
+  Function StrEqualIgnoringCase(const aReceiver: String; const aSecondString: String): Boolean;
 
   // the IntToStr generates wrong results
@@ -106 +111 @@
 
   uses
+    SysUtils,
     DebugUnit;
 
@@ -502 +508 @@
 
 
+  Function StrEqualIgnoringCase(const aReceiver: String; const aSecondString: String): Boolean;
+  begin
+    Result := CompareText(aReceiver, aSecondString) = 0;
+  end;
+
+
   Function LongWordToStr(const aLongWord: LongWord) : String;
   Var