Правила форума
StrScan.PASLanguage:
Русский
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;
::
::
::
