paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-16 08:46:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added PathSeparator and OSDirSeparator

Browse Source
This commit is contained in:
michael 2001-11-07 13:57:26 +00:00
parent c9f75e434f
commit 3eebee4744
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/finah.inc
View File

@ -23,11 +23,9 @@
Const
DirSeparators : set of char = ['/','\'];
{$ifdef Unix}
OSDirSeparator = '/';
{$else}
OsDirSeparator = '\';
{$endif}
OSDirSeparator = system.pathdelim;
PathSeparator = system.pathdelim;
function ChangeFileExt(const FileName, Extension: string): string;
function ExtractFilePath(const FileName: string): string;
@ -44,7 +42,10 @@ Function GetDirs (Var DirName : String; Var Dirs : Array of pchar) : Longint;
{
$Log$
Revision 1.3 2000-11-13 14:41:20 marco
Revision 1.4 2001-11-07 13:57:26 michael
+ Added PathSeparator and OSDirSeparator
Revision 1.3 2000/11/13 14:41:20 marco
* Unix renamefest for defines
Revision 1.2 2000/07/13 11:33:51 michael