StringReplace und doppelte Zeichen

[Dipl Phys Ernst Winter]

function KillDoppelZeichenToZeichen(S:string;C:Char):string ;

Nachdem ich diese kriegerische Funktion in meine Beispielsammlung aufgenommen hatte, kam die Frage
wozu sie nütze ist.

Die Beispiele mit C=x erscheinen mir sinnlos, einzig C=Leerzeichen macht einen Sinn, dann sollten wir aber glech

function DeleteDouleSpace(s: string): string;

entwickeln, die führende und doppelte Leerzeichen entfernt.

Delphi-Quellcode:

function TForm1.DeleteDoubleSpace(s: string): string;
var
  i: integer;
begin
  if Length(s)<2 then begin Result:= ''; Exit end;
  i:= 1;
  repeat
    if (s[i]=' ') and (s[i+1]=s[i]) then begin Delete(s, i+1, 1); continue end
    else Inc(i);
  until i=Length(s);
  Result:= s
end;

Die Geschwindigkeit scheint mir kein Thema zu sein, da das im Augenglick ausgeführt wird.

Exception bei zu kurzem String abgefangen