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;