blob: 0749a38ec63f46e1cea9fe1ff7bf3beef11a6012 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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.
|
