home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / GETFILE3.INT < prev    next >
Encoding:
Text File  |  1988-01-29  |  327 b   |  17 lines
  1.  
  2. const
  3.    maxnumfiles =  200;
  4.    null =         #0;
  5.  
  6. type
  7.    filearray =    array [1.. maxnumfiles] of varstring;
  8.  
  9. var
  10.    filetable:     filearray;
  11.    filecount:     integer;
  12.  
  13. procedure getfiles (pattern:       string;
  14.                     var fdir:      filearray;
  15.                     var num:       integer);
  16.  
  17.