Convert known directory separators to the current directory separator.
Source position: finah.inc line 43
procedure DoDirSeparators( |
var FileName: UnicodeString |
); |
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.