StringReplace und doppelte Zeichen

[grenzgaenger]

tja, aber für 'ne einfache funktion recht komplex geworden...

guck dir mal den folgenden code an ... etwas kompakter, macht das selbe, denke ist besser für weiterentwicklungen...

grüsse und noch schöne weihnachten

Delphi-Quellcode:

function ReplaceDChar(Quelle: string; aChar: char): string;
var
 i: integer;
begin
 result := '';
 for i := 1 to length(quelle) do
  if (length(result)=0) or (quelle[i]<>result[length(result)]) or (aChar<>result[length(result)]) then
   result := result + quelle[i];
end;