Einzelnen Beitrag anzeigen

Benutzerbild von Opa
Opa

Registriert seit: 12. Jun 2003
107 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: StringReplace und doppelte Zeichen

  Alt 23. Dez 2007, 21:43
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
Wenn man nicht weiß was man sucht, findet man auch mit Google nichts.
Bevor ich hier eine Frage stelle, wurde Google vorher befragt. Hinweise dieser Art kann man sich schenken. Im übrigen muss mir niemand antworten.
  Mit Zitat antworten Zitat