StringReplace und doppelte Zeichen

[Opa]

Ja wirklich? Dann versuch das mal mit (xxDasxxxxxLebenx ist schön)

Code:

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
    S:= KillDoppelZeichenToZeichen(S,'x'); //Erg = xDasxLebenx ist schön (so will ich das haben)
  Caption := S;

Mfg