String zerlegen

[Markus K.]

Hallo Uncle Cracker,
mit diesem Code hatte ich einen String in einzelne Wörter zerlegt. Vielleicht hilft er dir.

Delphi-Quellcode:

var Text,Anfang:PChar;
    Wort:String;
begin
     Text:={String angeben};
     while (Text^ <> #0) do
           if (Text^ in [#1..#64,#91..#96,#123..#127]) then inc(Text)
           else begin
                Anfang:=Text;
                while not (Text^ in [#1..#64,#91..#96,#123..#127]) do inc(Text);
                SetString(Wort,Anfang,Text-Anfang);
                {Ausgabe}
                end;
end;

Tschüß Markus