Bug in StrReadWord?

7 Feb 2001

      I'm using StrReadWord to parse a line of input to my program. If the 
last 'word' is a single character, then it doesn't get read. Is this 
behaviour intentional?

Example:
program test(output);

uses StringUtils;

var
    src : string ="abc xy";
    dest : string;
    i : integer;

begin
   i := 1;

   while StrReadWord(src,i,dest) do
      writeln(i,dest:10)

end.

This produces, as I expected:

4       abc
7        xy 

But if the last character of the string is removed:

    src : string ="abc x";

the output becomes:

4       abc 

What happened to the 'x'? 

I'm using gpc 20010115.
-- 
Steve

Bug in StrReadWord?

Steve Loft