StringReplace mehrfach

[EarthQuaker]

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