Re: Выход за пределы стринга
Добавлено: 17 мар 2007, 01:36
Согласен... Надо было.Игорь Акопян писал(а):Колядин Максим, единственное дополнение - предлагая решение, обрати внимание читающего, что есть нюанс
Согласен... Надо было.Игорь Акопян писал(а):Колядин Максим, единственное дополнение - предлагая решение, обрати внимание читающего, что есть нюанс
Код: Выделить всё
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;