Zitat von
ibp:
Zitat von
Robert Marquardt:
Wie waere es denn mit
Result := StringReplace(S, Ch + Ch, Ch, [rfReplaceAll]);
Dann muss nur noch auf ein Ch am Ende getestet werden.
Zitat von
Pseudemys Nelsoni:
...es sollten keine funktionen aus der
VCL verwendet werden.
StringReplace ist auch nicht Teil der
VCL, sondern der
RTL 
.