StrScan.PAS

Language:
Русский
English

  {StrScan.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the StrScan function.}

 { Return true if file name has wildcards in it }

  function HasWildcards(FileName: PChar): Boolean;
 begin
   HasWildcards := (StrScan(FileName, '*') <> nil) or
     (StrScan(FileName, '?') <> nil);
  end;

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //