ExtractWords


Purpose   Returns a number of specified words from a string.

Decln.    ExtractWords(Start,Count:byte;Str:string):string;

Returns   String

Remarks   Start is the number of the first word to extract.
          Count is the number of words to extract.
          Str is the source string.

Example

VAR LASTBIT : STRING;
BEGIN
    LASTBIT := EXTRACTWORDS(4,3,'WHO THE HELL SAYS CENSORSHIP IS GOOD!');
END;