Changeset 123 for trunk/NewView/StringUtilsUnit.pas

Timestamp:

Apr 26, 2007, 8:22:28 PM (18 years ago)

Author:

RBRi

Message:

format fixes

File:

• trunk/NewView/StringUtilsUnit.pas (modified) (1 diff)

trunk/NewView/StringUtilsUnit.pas

@@ -46 +46 @@
   //     StrExtractStrings('1x2x3\x4', 'x', '\') ->
   //     returns 4 strings: '1', '', '2' and '3x4'
-  Procedure StrExtractStrings(Var aResult : TStrings; const aReceiver: String; const aSetOfChars: TSetOfChars; const anEscapeChar: char);
+  Procedure StrExtractStrings(var aResult : TStrings; const aReceiver: String; const aSetOfChars: TSetOfChars; const anEscapeChar: char);
 
   // same as StrExtractStrings but ignores empty strings
-  Procedure StrExtractStringsIgnoreEmpty(Var aResult : TStrings; const aReceiver: String; const aSetOfChars: TSetOfChars; const anEscapeChar: char);
+  Procedure StrExtractStringsIgnoreEmpty(var aResult : TStrings; const aReceiver: String; const aSetOfChars: TSetOfChars; const anEscapeChar: char);
 
   // removes all occurences of char from aSetOfChars from the beginning