paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 04:13:13 +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 Const
DirSeparators : set of char = ['/','\']; DirSeparators : set of char = ['/','\'];
OSDirSeparator = system.pathdelim; OSDirSeparator = system.pathdelim;
PathSeparator = system.pathdelim;
function ChangeFileExt(const FileName, Extension: string): string; function ChangeFileExt(const FileName, Extension: string): string;
@ -42,7 +41,10 @@ Function GetDirs (Var DirName : String; Var Dirs : Array of pchar) : Longint;
{ {
$Log$ $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 + Added PathSeparator and OSDirSeparator
Revision 1.3 2000/11/13 14:41:20 marco Revision 1.3 2000/11/13 14:41:20 marco

11
rtl/objpas/sysutilh.inc
View File

@ -145,6 +145,12 @@ Var
Const Const
HexDisplayPrefix : string = '$'; HexDisplayPrefix : string = '$';
const
PathDelim=System.DirectorySeparator;
DriveDelim=System.DriveSeparator;
PathSep=System.PathSeparator;
Type Type
TFileRec=FileRec; TFileRec=FileRec;
TTextRec=TextRec; TTextRec=TextRec;
@ -171,7 +177,10 @@ Type
{ {
$Log$ $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 * criticalsection renamed to rtlcriticalsection for kylix compatibility
Revision 1.13 2001/08/22 21:19:16 florian Revision 1.13 2001/08/22 21:19:16 florian