|
@@ -921,7 +921,7 @@ Begin
|
|
|
WriteLn('Success.');
|
|
WriteLn('Success.');
|
|
|
WriteLn('PARAMSTR(0) = ', ParamStr(0));
|
|
WriteLn('PARAMSTR(0) = ', ParamStr(0));
|
|
|
WriteLn('DRIVE + NAME + EXT = ',d+n+e);
|
|
WriteLn('DRIVE + NAME + EXT = ',d+n+e);
|
|
|
-
|
|
|
|
|
|
|
+{$ifdef go32v2}
|
|
|
Write('Testing invalid path (..)...');
|
|
Write('Testing invalid path (..)...');
|
|
|
P:='..';
|
|
P:='..';
|
|
|
FSPlit(P,D,N,E);
|
|
FSPlit(P,D,N,E);
|
|
@@ -929,6 +929,7 @@ Begin
|
|
|
WriteLn('FAILURE. Length of drive and name should be zero and Ext should return Path')
|
|
WriteLn('FAILURE. Length of drive and name should be zero and Ext should return Path')
|
|
|
else
|
|
else
|
|
|
WriteLn('Success.');
|
|
WriteLn('Success.');
|
|
|
|
|
+{$endif}
|
|
|
Write('Testing invalid path (*)...');
|
|
Write('Testing invalid path (*)...');
|
|
|
P:='*';
|
|
P:='*';
|
|
|
FSPlit(P,D,N,E);
|
|
FSPlit(P,D,N,E);
|
|
@@ -983,7 +984,10 @@ GetEnv | Func | Returns the value of a specified environment variable.
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.2 2001-05-20 18:30:46 hajny
|
|
|
|
|
|
|
+ Revision 1.3 2001-06-06 01:31:24 carl
|
|
|
|
|
+ * fsplit with .. only works for go32v2 version and TP
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.2 2001/05/20 18:30:46 hajny
|
|
|
+ support for GO32v1 and GO32v2 added
|
|
+ support for GO32v1 and GO32v2 added
|
|
|
|
|
|
|
|
Revision 1.1 2001/05/19 12:10:02 peter
|
|
Revision 1.1 2001/05/19 12:10:02 peter
|
carl