Das ist aber auch blöd. Was, wenn man ein Dollarzeichen schreibt
Als Trennzeichen dienen i.d.R. Zeilenumbrüche, Leerzeichen, Kommas, Strichpunkte und Tabs
Somit würde das dann etwa so aussehen:
if s[i] in [#9,#10,#13,#32,',','.',';'] then //...
Aufpassen muss man aber bei Trennstrichen vor Zeilenumbrüchen, denn das sind dann meist Silbentrennungszeichen. Befindet sich direkt vor einem Zeilenumbruch ein Minus-Strich(-), trennt der Zeilenumbruch das Wwort nicht.
Die Bedingung also folgendermaßen erweitern:
Delphi-Quellcode:
if s[i] in [#9,#10,#13,#32,',','.',';']) then
if (s[i] = #13) and (s[i-1] <> '-') then //jetzt ein Wort