mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 19:31:37 +01:00
21 lines
343 B
ObjectPascal
21 lines
343 B
ObjectPascal
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. |