Browse Source

+ Added PathDelim,DriveDelim,PathSep

michael 24 years ago
parent
commit
2a04e66b42
1 changed files with 20 additions and 2 deletions
  1. 20 2
      rtl/inc/systemh.inc

+ 20 - 2
rtl/inc/systemh.inc

@@ -233,6 +233,21 @@ Var
 {$endif MT}
 {$endif MT}
   InOutRes    : Word;
   InOutRes    : Word;
 
 
+{****************************************************************************
+                        System specific variables
+****************************************************************************}
+
+const
+{$ifndef unix}
+  PathDelim  = '\';
+  DriveDelim = ':';
+  PathSep    = ';';
+{$else}
+  PathDelim  = '/';
+  DriveDelim = ''; 
+  PathSep    = ':';
+{$endif}
+
 {****************************************************************************
 {****************************************************************************
                         Processor specific routines
                         Processor specific routines
 ****************************************************************************}
 ****************************************************************************}
@@ -554,7 +569,10 @@ const
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.36  2001-10-09 02:32:51  carl
+  Revision 1.37  2001-11-07 13:52:37  michael
+  + Added PathDelim,DriveDelim,PathSep
+
+  Revision 1.36  2001/10/09 02:32:51  carl
   * bugfix #1639 (IsMultiThread varialbe setting)
   * bugfix #1639 (IsMultiThread varialbe setting)
 
 
   Revision 1.35  2001/08/19 21:02:01  florian
   Revision 1.35  2001/08/19 21:02:01  florian
@@ -683,4 +701,4 @@ const
   Revision 1.2  2000/07/13 11:33:45  michael
   Revision 1.2  2000/07/13 11:33:45  michael
   + removed logs
   + removed logs
 
 
-}
+}