Concatenate an array of paths to form a single path.
Source position: finah.inc line 46
function ConcatPaths( |
const Paths: array of UnicodeString |
):UnicodeString; |
const Paths: array of RawByteString |
ConcatPaths will concatenate the different path components in Paths to a single path. It will insert directory separators between the various components of the path as needed. No directory separators will be added to the beginning or the end of the path, and none will be taken away.
|
Add trailing directory separator to a pathname, if needed. |
|
|
Prepend a path delimiter if there is not already one. |
|
|
Strip trailing directory separator from a pathname, if needed. |
|
|
Add trailing directory separator to a pathname, if needed. |
program ex96; { This program demonstrates the Concatpaths function } uses sysutils; begin // will write /this/path/more/levels/ Writeln(ConcatPaths(['/this/','path','more/levels/'])); // will write this/path/more/levels/ Writeln(ConcatPaths(['this/','path','more/levels/'])); // will write this/path/more/levels Writeln(ConcatPaths(['this/','path','more/levels'])); end.