GetWordofAnsiString funktioniert nicht??

[pacman1986]

danke leute den auszug hatte ich aus dsdt.info dachte wäre besser

hab jetzt meinen eigenen

Delphi-Quellcode:

Function GetWord(Text : string; WordPos : Word): string;
var i,z:integer;
begin
    result := '';
    z:=0;

    for i := 1 to length(text) do begin
      if text[i]='.' then begin
        z:=z+1;
        if z=WordPos then break;
        result := '';
      end else begin
       result := result+text[i];
      end;
    end;
end

zwar nicht an euch beide aber falls es jmnd brauch