summaryrefslogtreecommitdiff
path: root/fpcdocs/sysutex/ex95.pp
blob: 3ca5e0bdd225b517859b67d5097d20781c85b126 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
Program Example95;

{ This program demonstrates the IncludeLeadingPathDelimiter function }

Uses sysutils;

Begin
  // Will print "/this/path"
  Writeln(IncludeLeadingPathDelimiter('this/path'));
  // The same result 
  Writeln(IncludeLeadingPathDelimiter('/this/path'));
End.