paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 17:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added PathDelim,DriveDelim,PathSep; Removed PathSeparator

Browse Source
This commit is contained in:
michael 2001-11-07 14:58:24 +00:00
parent 3eebee4744
commit a161ebaab2
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/finah.inc
View File

@ -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

11
rtl/objpas/sysutilh.inc
View File

@ -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