Changeset 235 for trunk/Library/FileUtilsUnit.pas

Timestamp:

Sep 14, 2007, 8:37:54 PM (18 years ago)

Author:

RBRi

Message:

more constants; small cleanup

File:

• trunk/Library/FileUtilsUnit.pas (modified) (5 diffs)

trunk/Library/FileUtilsUnit.pas

@@ -18 +18 @@
   DIRECTORY_SEPARATOR = '\';
   PATH_SEPARATOR = ';';
+  CURRENT_DIRECTORY = '.';
+  PARENT_DIRECTORY = '..';
+  FILE_EXTENSION_DELIMITER = '.';
 
   // Drive numbers are one based
@@ -29 +32 @@
   LanguageEnvironmentVar = 'LANG';
   DEFAULT_LANGUAGE = 'EN_US';
-  HELP_FILE_EXTENSION = '.hlp';
+  HELP_FILE_EXTENSION = FILE_EXTENSION_DELIMITER + 'hlp';
 
 
@@ -255 +258 @@
     begin
       tmpDirectory := tmpDirectories[i];
-      if tmpDirectory = '..' then
+      if tmpDirectory = PARENT_DIREcTORY then
       begin
         if NOT ((Length(Result) = 2) AND (Result[2] = ':')) then
@@ -262 +265 @@
         end;
       end
-      else if tmpDirectory = '.' then
+      else if tmpDirectory = CURRENT_DIRECTORY then
       begin
         ; // nothing to do
@@ -515 +518 @@
     begin
       tmpName := tmpSearchResults.Name;
-      if (tmpName <> '.') AND (tmpName <> '..') then
+      if (tmpName <> CURRENT_DIRECTORY) AND (tmpName <> PARENT_DIRECTORY) then
       begin
         aList.Add(AddDirectorySeparatorIfNotEmpty(aDirectory) + tmpSearchResults.Name );