Changeset 273 for trunk/Library/FileUtilsUnit.pas

Timestamp:

Apr 27, 2008, 9:42:48 AM (17 years ago)

Author:

RBRi

Message:

more constants

File:

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

trunk/Library/FileUtilsUnit.pas

@@ -32 +32 @@
   LanguageEnvironmentVar = 'LANG';
   DEFAULT_LANGUAGE = 'EN_US';
+  HELP_FILE_DELIMITER = '+';
   HELP_FILE_EXTENSION = FILE_EXTENSION_DELIMITER + 'hlp';
+  INF_FILE_EXTENSION = FILE_EXTENSION_DELIMITER + 'inf';
 
 
@@ -646 +648 @@
     if tmpDirectory = '' then
     begin
-      Result:= true;
+      Result := true;
       exit;
     end;
@@ -655 +657 @@
       begin
         // a drive only has been specified
-        tmpDrive:= UpCase(tmpDirectory[1] );
+        tmpDrive := UpCase(tmpDirectory[1] );
         if (tmpDrive < 'A') or (tmpDrive > 'Z') then
         begin