Doppelte Buchstaben filtern

[XHelp]

Vllt sowas wie:

Delphi-Quellcode:

function parseDoubleLetters(s:string):string;
var
  i:integer;
begin
i:=1;
result:='';
while (i<=length(s)) do begin
  result:=result+s[i];
  if (s[i]=s[i+1]) then begin
    inc(i);
  end;
  inc(i);
end;
end;

Ansonsten lässt sich bestimmt auch irgendein schlauer RegEx bauen.