[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'sysutils' (#rtl)

# DoDirSeparators

Convert known directory separators to the current directory separator.

## Declaration

Source position: finah.inc line 40

`procedure DoDirSeparators(`
`var FileName: UNICODESTRING`
`); procedure DoDirSeparators(`
`var FileName: RAWBYTESTRING`
`);`

## 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

ExtractFileName |  | Extract the filename part from a full path filename.
ExtractFilePath |  | Extract the path from a filename.

## Example

    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.