Skip to content

    DoDirSeparators

    Convert known directory separators to the current directory separator.

    Declaration

    Source position: finah.inc line 43

    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

    Name Description
    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.