ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/PROG/PASCAL/FULLDB13.ZIP/PARSE.PAS

Pascal/Delphi Source File | 1991-10-15 | 481 b | 26 lines

unit parse;

{ Unit to parse strings & demonstrate FULLDB }

{ Compile in the regular way, then run
     FULLDB parse
  to add debugging information from PARSE.OBJ to PARSE.TPU.  }

interface

function wordcount(s:string):integer;
{ Count the words in s with blanks as delimiters }

function getword(n:integer;s:string):string;
{ Get word n from string s }

implementation

function wordcount; external;

function getword; external;

{$L parse.obj}

end.