PosWord


Purpose   Determines the starting character position of a word.

Decln.    PosWord(WordNo:byte;Str:string):byte;

Returns   Byte

Remarks   WordNo is the number of the word to check.
          Str is the source string.

          If there are too few words in the source string, a 0 is returned.

Example

VAR
  B:BYTE;
BEGIN
    B := POSWORD(3,'THE QUICK BROWN LINEBACKER');
END;

The variable B is assigned the value 11.