DoDirSeparators

Convert known directory separators to the current directory separator.

Declaration

Source position: finah.inc line 41

procedure DoDirSeparators(

var FileName: String

);

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 DirSeparators constant.

Errors

None.

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.

Notes

 No notes exist for this page yet.