StringReplace und doppelte Zeichen

[grenzgaenger]

und wo liegt das problem???

Delphi-Quellcode:

var
  Flags   : TReplaceFlags;
  OK : boolean;
  S  : string;
begin
  S:='xxDasxxxxxLebenx ist schön';{x = ggf. Leer-Zeichen}
  Flags  := [rfReplaceAll, rfIgnoreCase];
  S := StringReplace(S,'xx','x',Flags); // Erg = xDasxxxLebenx ist schön
//  xDasxxxLebenx ist sch÷n
   writeln(s);
   readln;
end.

das macht delphi doch optimal und genau richtig . je zwei xx werden mit einem x ersetzt... also beispiel

xxDas --> xDas

und das kommt doch genau raus, oder brauch ich eine brille?

übrigens xxxxx = 5 x = 2x ersatz plus 1x übrig also xxx