Changeset 82 for trunk/NewView/CmdLineParameterUnit.pas

Timestamp:

Feb 25, 2007, 4:15:10 PM (18 years ago)

Author:

RBRi

Message:

file util refactoring and many more unit tests

File:

• trunk/NewView/CmdLineParameterUnit.pas (modified) (4 diffs)

trunk/NewView/CmdLineParameterUnit.pas

@@ -78 +78 @@
        PROCEDURE logDetails;
        PROCEDURE parseCmdLine(aCmdLineString : String);
-  end;
-
-  FUNCTION getOwnHelpFileName: String;
+       FUNCTION getOwnHelpFileName: String;
+  end;
 
   // returns a string containing the whole
@@ -90 +89 @@
 uses
   DOS,
-  ACLFileUtility;
+  FileUtilsUnit;
 
   PROCEDURE TCmdLineParameters.writeDetailsTo(aStrings : TStrings);
@@ -426 +425 @@
       if fileNames = '' then
       begin
-        tmpOwnHelpFileName := FindDefaultLanguageHelpFile('NewView');
+        tmpOwnHelpFileName := getOwnHelpFileName;
         if FileExists(tmpOwnHelpFileName)
         then
@@ -605 +604 @@
 
 
-  FUNCTION getOwnHelpFileName: String;
+  FUNCTION TCmdLineParameters.getOwnHelpFileName: String;
+  var
+    tmpLanguage : String;
   begin
-    result := FindDefaultLanguageHelpFile('NewView');
+    tmpLanguage := getLanguage;
+    if tmpLanguage = '' then
+    begin
+      tmpLanguage := GetEnv(LanguageEnvironmentVar)
+    end;
+
+    result := FindDefaultLanguageHelpFile('NewView', tmpLanguage);
   end;