WordCnt


Purpose   Counts the number of words in a string.

Decln.    WordCnt(Str:string):string;

Returns   String

Remarks   Str is the source string.

Example

VAR
  B : BYTE;
BEGIN
    B := WORDCNT('WHAT A SUPERB PRODUCT, REGARDS PHILLIPE');
END;

The variable B is assigned the value 6.