String-Bearbeitung! Ich finde den Fehler nicht!

[Jürgen Thomas]

Zitat von SirRobert:

das stimmt, aber in dem String befinden sich auch: #$D#$A 's
Die will ich ausschließen und nicht entfernen!

@CK_CK
Ich befürchte, dass nach den Leerzeichen nicht geprüft werden darf...

Ob es schneller geht, weiß ich nicht (ausprobieren), aber möglich ist folgendes Verfahren:

Delphi-Quellcode:

const sCRLF  = 'ABRAkadaBRA1279${]';  //  also irgendwelcher Schrott
sTemp  := StringReplace(TestString, #$D#$A, sCRLF, [rfReplaceAll]);
sTemp  := StringReplace(sTemp,      #$A,    '',    [rfReplaceAll]);
Result := StringReplace(sTemp,      sCRLF,  #$D#$A,[rfReplaceAll]);

Gruß Jürgen