home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_01 / 2n01048a < prev    next >
Text File  |  1990-11-14  |  170b  |  14 lines
  1.  
  2.  
  3.  
  4. function search(var s : string) : integer;
  5.     var
  6.         i : integer;
  7.     begin
  8.     i := MAX;
  9.     while (i > 0) and (s <> table[i]) do
  10.         i := i - 1;
  11.     search := i;
  12.     end;
  13.  
  14.