Changeset 82 for trunk/NewView/StartupUnit.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/StartupUnit.pas (modified) (2 diffs)

trunk/NewView/StartupUnit.pas

@@ -48 +48 @@
   PMWin,
   ACLStringUtility,
-  ACLFileUtility,
-  HelpManagerUnit;
+  HelpManagerUnit,
+  FileUtilsUnit;
 
 // Look for any items that are actually specifiying environment
@@ -95 +95 @@
   AlternativeFileName: string;
 begin
-  if FileName = OWN_HELP_MARKER then
-  begin
-    Result := GetOwnHelpFileName;
-    exit;
-  end;
-
   Result := '';