GetWordofAnsiString funktioniert nicht??

**pacman1986**

Delphi-Quellcode:

			Function GetWordOfAnsiString(Text : string; WordPos : Word): string;

var

 p  : PChar;

begin

  p  := PChar(Text);

  repeat

    Dec(WordPos);

    while p^ <> #0 do

    begin

      if WordPos = 0 then

       Result := Result + p^;

      Inc(p);

    end;

    if WordPos = 0 then Exit;

    Inc(p);

  until p^ = #0;

end;

wenn ich auf den 3 tel zugreife kommt der 3 und der 4 warum ???

Bsp

GetWordOfAnsiString('bla'+#0+'b'+#0+'b'+#0+'b'+#0+ 'b'+#0+'b'+#0,1);

kommt bla

bei
getwordofansistring('bla'+#0+'b'+#0+'b'+#0+'b'+#0+ 'b'+#0+'b'+#0,3);
kommt 'bb' was ist los ???

GetWordofAnsiString funktioniert nicht??

GetWordofAnsiString funktioniert nicht??

Forumregeln