Doppelte Zeichen auslesen

[himitsu]

AABBAABA ergibt sogar 5, was ebenfalls falsch ist.

möglich wäre höchstens noch sowas,
Result := Length(S) - Length(StringReplace(S, Ch + Ch, Ch, [rfReplaceAll])); wobei man dieses auch wieder in 'ner Schleife durchgehen müßte, da StringReplace das Ersetzungsergebnis nicht wieder in den nächsten Suchvorgang mit einbezieht:

Delphi-Quellcode:

Temp := S;
Repeat
  Temp2 := Temp;
  Temp := StringReplace(Temp, Ch + Ch, Ch, [rfReplaceAll]));
Until Temp = Temp2;
Result := Length(S) - Length(Temp);

wobei ich dennoch einen Code empfehlen würde, wo der String nicht (intern) verändert wird ... unnötige String-/Speicheroperationen müssen ja nicht sein.