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