Sign in Join
FPDoc Onlineexperiment

DoDirSeparators procedure

In unit sysutils

Convert known directory separators to the current directory separator.

Declaration

pascal
procedure DoDirSeparators(var FileName: UnicodeString)

Description

This function replaces all known directory separators in FileName to the directory separator character for the current system. The list of known separators is specified in the AllowDirectorySeparators constant.

Errors

None.

See also

Example: ex32

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.