Changeset 219 for trunk/Library/StringUtilsUnit.pas

Timestamp:

Jun 25, 2007, 8:47:55 PM (18 years ago)

Author:

RBRi

Message:

Copyright updates

File:

• trunk/Library/StringUtilsUnit.pas (modified) (3 diffs)

trunk/Library/StringUtilsUnit.pas

@@ -2 +2 @@
 
 // NewView - a new OS/2 Help Viewer
+// Copyright 2003-2006 Aaron Lawrence
 // Copyright 2006-2007 Ronald Brill (rbri at rbri dot de)
 // This software is released under the GNU Public License - see readme.txt
@@ -123 +124 @@
   // Extract all fields in a String delimited by whitespace (blank or tab).
   // use double quotes if you need blanks in the strings
-  Procedure StrExtractStringsQuoted(Var aResult: TStrings; const aReceiver: String );
+  Procedure StrExtractStringsQuoted(Var aResult: TStrings; const aReceiver: String);
 
   // returns the position of aPart in aString
   // case insensitive
-  Function CaseInsensitivePos(const aPart: String; const aString: String ): longint;
+  Function CaseInsensitivePos(const aPart: String; const aString: String) : longint;
 
   // Finds the last position of aChar within aString. Returns zero if no match
-  Function LastPosOfChar(const aChar: char; const aString: String): longint;
+  Function LastPosOfChar(const aChar: char; const aString: String) : longint;
 
 
   // Substitutes all occurences of given character with the replace char
-  Procedure SubstituteAllOccurencesOfChar(var aReceiver: String; const aSearchChar: Char; const aReplaceChar: Char );
+  Procedure SubstituteAllOccurencesOfChar(var aReceiver: String; const aSearchChar: Char; const aReplaceChar: Char);
 
 
@@ -746 +747 @@
 
 
-  Procedure StrExtractStringsQuoted(Var aResult: TStrings; const aReceiver: String );
+  Procedure StrExtractStringsQuoted(Var aResult: TStrings; const aReceiver: String);
   Var
     tmpState : (WHITESPACE, INSIDE, START_QUOTE, INSIDE_QUOTED, INSIDE_QUOTED_START_QUOTE);