blob: fe36129f6c69584a18152b789571e3cc9d0967f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Program Example32;
{ This program demonstrates the DoDirSeparators function }
{$H+}
Uses sysutils;
Procedure Testit (F : String);
begin
Writeln ('Before : ',F);
DoDirSeparators (F);
Writeln ('After : ',F);
end;
Begin
Testit (GetCurrentDir);
Testit ('c:\pp\bin\win32');
Testit ('/usr/lib/fpc');
Testit ('\usr\lib\fpc');
End.
|
