DoDirSeparators
Convert known directory separators to the current directory separator.
Declaration
Source position: finah.inc line 41
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.