3
{ Program to demonstrate the FNMatch function. }
7
Procedure TestMatch(Pattern,Name : String);
10
Write ('"',Name,'" ');
11
If FNMatch (Pattern,Name) then
14
Write ('does not match');
15
Writeln(' "',Pattern,'".');
19
TestMatch('*','FileName');
20
TestMatch('.*','FileName');
21
TestMatch('*a*','FileName');
22
TestMatch('?ile*','FileName');
23
TestMatch('?','FileName');
24
TestMatch('.?','FileName');
25
TestMatch('?a*','FileName');
26
TestMatch('??*me?','FileName');