strscan.pas

  {StrScan.PAS}
 
 { Пример программы для функции StrScan }
 
 { Возвращает True, если в имени файла пристутствуют символы шаблонов }
 
 Function HasWildcards(FileName : PChar) : Boolean;
 Begin
  HasWildcards:=(StrScan(FileName, '*')<>NIL) Or
                (StrScan(FileName, '?') <> NIL);
 End;