Danke euch... wie man so schön sagt sieht man den Wald vor lauter bäumen nicht
Code:
var
S1, S2, S3: String;
begin
S1 := '(?<=^|[[:punct:][:space:]])';
S2 := '(?=[[:punct:][:space:]]|$)';
S3 := '(?<=^|[[:punct:][:space:][:digit:]])';
List.DelimitedText := MWKStringReplace.StringReplace(MWKStringReplace.StringReplace(MWKStringReplace.StringReplace(Quelle[i], S1, ' ', [rfReplaceAll]), S2, ' ', [rfReplaceAll]), S3, ' ', [rfReplaceAll]);
Habs nun so gelöst
nun muss ich jedoch schauen das der bösewicht nicht die Leerzeihen mit wegknallt
Danke euch Trotzdem
Mit freundlichen Grüßen