Wörter aus String rausfiltern?

[Duffy]

Hallo zusammen,
da alle immer selber die Strings zerpflücken wollen, habe ich hier mal einen ganz anderen Ansatz gewählt und lasse den String zerpflücken. Ich benutze eigentlich nur die Eigenschaften, die TStrings schon mitbringt.
Leider kann ich das nur unter D7 testen, da ich keine andere Version im Einsatz habe.
Hier der Sourcecode

Delphi-Quellcode:

 //-----------------------------------------------------------------------//

//#######################################################################//
//## Procedure StringTokenToStrings:                                   ##//
//#######################################################################//
//##      Datum: Änderung:                                             ##//
//##      ====== =========                                             ##//
//##  29.07.2003 Initial Release                                       ##//
//#######################################################################//
procedure StringTokenToStrings(DelimitedText: string; Delimiter: Char; StringList: TStrings);
begin
  StringList.Delimiter := Delimiter;
  StringList.DelimitedText := DelimitedText;
end;

bye

-=> Source funktioniert leider nicht so wie sie sollte, sorry <=-