Doppelte Zeichen in einem String finden/löschen

[DeddyH]

Alternativvorschlag (nicht großartig getestet):

Delphi-Quellcode:

function DeleteDoubleChars(const s: string): string;
var iStart, iEnd: integer;
begin
  iStart := 1;
  Result := s;
  while iStart <= Length(Result) do
    begin
      iEnd := Length(Result);
      while iEnd > iStart do
        begin
          if Result[iEnd] = Result[iStart] then
            Delete(Result,iEnd,1);
          Dec(iEnd);
        end;
      Inc(iStart);
    end;
end;