Convert known directory separators to the current directory separator.
Source position: finah.inc line 40
procedure DoDirSeparators(
var FileName: UNICODESTRING
);
procedure DoDirSeparators(
var FileName: RAWBYTESTRING
);
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.
None.
Extract the filename part from a full path filename.
Extract the path from a filename.
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.