habe das ganze mal, statt als Funktion als Procedure impelentiert...
hier das Ergebnis:
Code:
Variante Opa: 35 Ticks mit dem Ergebnis: Erfolgreich
Ergebnisstring: Dies ist ein Test xCCCx mit Zeichen
Variante DAX: 10 Ticks mit dem Ergebnis: Falsche Konvertierung
Ergebnisstring: Dies ist ein Test xCx mit Zeichen
Variante alzaimar: 9 Ticks mit dem Ergebnis: Falsche Konvertierung
Ergebnisstring: Dies ist ein Test xCx mit Zeichen
Variante Grenzgaenger: 11 Ticks mit dem Ergebnis: Erfolgreich
Ergebnisstring: Dies ist ein Test xCCCx mit Zeichen
Variante himitsu: 10 Ticks mit dem Ergebnis: Falsche Konvertierung
Ergebnisstring: Dies ist ein Test xCx mit Zeichen
und der Code:
Delphi-Quellcode:
procedure ReplaceDChar(Var Quelle: string; aChar: char);
var
i, j: integer;
begin
j := 1;
for i := 2 to length(quelle) do
if (quelle[i]<>quelle[j]) or (aChar<>quelle[j]) then
begin
j := j + 1;
quelle[j] := quelle[i];
end;
setlength(quelle, j);
end;