+ Added PathDelim,DriveDelim,PathSep; Removed PathSeparator

rtl/objpas/finah.inc

@@ -24,7 +24,6 @@
 Const
   DirSeparators : set of char = ['/','\'];  
   OSDirSeparator = system.pathdelim;
-  PathSeparator = system.pathdelim;
    
 
 function ChangeFileExt(const FileName, Extension: string): string;
@@ -42,7 +41,10 @@ Function GetDirs (Var DirName : String; Var Dirs : Array of pchar) : Longint;
 
 {
   $Log$
-  Revision 1.4  2001-11-07 13:57:26  michael
+  Revision 1.5  2001-11-07 14:58:24  michael
+  + Added PathDelim,DriveDelim,PathSep; Removed PathSeparator
+
+  Revision 1.4  2001/11/07 13:57:26  michael
   + Added PathSeparator and OSDirSeparator
 
   Revision 1.3  2000/11/13 14:41:20  marco

rtl/objpas/sysutilh.inc

@@ -145,6 +145,12 @@ Var
 Const
    HexDisplayPrefix : string = '$';
 
+const
+  PathDelim=System.DirectorySeparator;
+  DriveDelim=System.DriveSeparator;
+  PathSep=System.PathSeparator;
+   
+
 Type
    TFileRec=FileRec;
    TTextRec=TextRec;
@@ -171,7 +177,10 @@ Type
 
 {
   $Log$
-  Revision 1.14  2001-10-23 21:51:03  peter
+  Revision 1.15  2001-11-07 14:58:24  michael
+  + Added PathDelim,DriveDelim,PathSep; Removed PathSeparator
+
+  Revision 1.14  2001/10/23 21:51:03  peter
     * criticalsection renamed to rtlcriticalsection for kylix compatibility
 
   Revision 1.13  2001/08/22 21:19:16  florian