3
{ This program demonstrates the ChangeFileExt function }
7
Procedure testit (N,E : String);
10
Write ('Changing "',n,'" with extension "',e,'" : ');
11
Writeln (ChangeFileExt(N,E));
15
Testit ('report.txt','.pas');
16
Testit ('file','.txt');
17
Testit ('/path/file.pas','.pp');
18
Testit ('/path/file.pp.org','.new');
b'\\ No newline at end of file'