home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SORT2.ZIP / ISWILD.FUN < prev    next >
Encoding:
Text File  |  1993-01-04  |  238 b   |  6 lines
  1. { Determines if there is any ambiguity in a file specification }
  2.  
  3. function iswild(s:string):boolean; var i:integer; begin iswild:=false;
  4. for i:=length(s) downto 1 do if s[i] in ['*','?'] then begin
  5.     iswild:=true; exit; end; end;
  6.