Changeset 256 for trunk/NewView

Timestamp:

Sep 24, 2007, 6:54:44 PM (18 years ago)

Author:

RBRi

Message:

use constant for file delimiter

Location:

trunk/NewView

Files:

• StartupUnit.pas (modified) (2 diffs)
• ViewStub.pas (modified) (1 diff)

trunk/NewView/StartupUnit.pas

@@ -19 +19 @@
 const
   OWN_HELP_MARKER = '[NVHELP]';
+  HELP_FILE_DELIMITER = '+';
 
 
@@ -72 +73 @@
       // environment var exists - use it's value
       LogEvent(LogStartup, '    Environment var found; translated to: ' + tmpEnvironmentVarValue);
-      StrExtractStrings(ExpandedItems, tmpEnvironmentVarValue, ['+'], #0);
+      StrExtractStrings(ExpandedItems, tmpEnvironmentVarValue, [HELP_FILE_DELIMITER], #0);
     end
     else

trunk/NewView/ViewStub.pas

@@ -73 +73 @@
     tmpFilenames := TStringList.Create;
 
-    StrExtractStrings(tmpFileItems, aCmdLineParameters.getFileNames(false), ['+'], #0);
+    StrExtractStrings(tmpFileItems, aCmdLineParameters.getFileNames(false), [HELP_FILE_DELIMITER], #0);
     TranslateIPFEnvironmentVars(tmpFileItems, tmpFileNames );