home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / SPARSE.ZIP / TESTPARS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-03-05  |  568 b   |  29 lines
  1. Program Test_Parser;
  2. Const
  3.   MaxParse = 20;
  4. Type
  5.   WrkString = String[80];
  6.   ParseRange = 0 .. MaxParse;
  7.   ParseType = RECORD
  8.     Count : ParseRange;
  9.     S : ARRAY[0 .. MaxParse] of WrkString;
  10.   END;
  11.  
  12. Var
  13.   SepStr, S : WrkString;
  14.   P : ParseType;
  15.   i : integer;
  16.   tokens : integer;
  17.  
  18. {$I PARSER.LIB}
  19.  
  20. BEGIN
  21.   CLrScr;
  22.   SepStr := ' ,';
  23.   Writeln(' enter a string ');
  24.   Readln(S);
  25.   tokens := Parse_Str(SepStr,S,P);
  26.   Writeln(' there are ',tokens,' tokens, which are :');
  27.   for i := 0 to tokens-1 do
  28.     Writeln(' ',i+1,' "',P.s[i],'"');
  29. END.