Выход за пределы стринга

[Колядин Максим]

Колядин Максим, единственное дополнение - предлагая решение, обрати внимание читающего, что есть нюанс

Согласен... Надо было.

[Absurd]

Меня в общем удивляет - зачем уродовать чужой объект? Почему бы новый не создать и с ним уже не извращаться?

Код: Выделить всё

function removeDupChars(param: string):string;
var i: integer;
    c: Char;
begin
  c := chr(0);
  result := '';
  for i:=1 to length(param) do
    if param[i] <> c then
      begin
        c := param[i];
        result := concat(result, c);
      end;
end;