Developing.ru

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;

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

[code]
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;
[/code]

[quote="Игорь Акопян"]Колядин Максим, единственное дополнение - предлагая решение, обрати внимание читающего, что есть нюанс[/quote]
Согласен... Надо было.

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

i := 1;
For x := 2 to length(s) do
    if s[x]<>s[i] then
       begin
       inc(i);
       s[i] := s[x];
       end;
s[0] := chr(i);

[quote="&quot"]Предложишь другой вариант решения этой задачи? Есть другие, более краткие способы? - давай, оптимизатор -);[/quote]
Что ж, по многочисленным просьбам телезрителей, :-), меняем метод работы. Будем не удалять, а собирать.
[code]
i := 1;
For x := 2 to length(s) do
if s[x]<>s[i] then
begin
inc(i);
s[i] := s[x];
end;
s[0] := chr(i);
[/code]
Подлинее, но ...
Тесты скорости, использовалась строка 'Hells Bells', время замера - 100 тактов DOS таймера (~5.5 сек)
Код №1 - вариант Максима
Код №2 - вариант мой.
----------------------------
Код №1 - 3 645 365 раз/сек
Код №2 - 18 825 449 раз/сек
----------------------------
Строка 'Thanks for choosing Google Earth, now click finish to complete setup'
Код №1 - 2 402 021 раз/сек
Код №2 - 5 606 163 раз/сек
----------------------------
Строка 'Deleeeeete thissssssss pleassssseeeeee'
Код №1 - 501 818 раз/сек
Код №2 - 10 029 670 раз/сек

Поконкретней.. eof возвращает конец файла к примеру - это функция..
Здесь уже писал кто-то записывается строка и ее длинна все..

Уважаемые сеньоры девелоперы! Может мой вопрос покажется идиотским, но я ещё только учусь :-) А паскаль включает в длину строки символы ln, eof или как они там называются?

if (length(s)= 255) then length:= length(s) -1 и все решение задачки

ps вопрос теоритический мне его сей час не проверить- дальше месить ступу не буду..

[quote="somewhere"]Ну если так, то своим кодом ты добавил лишний проход For и подцепил ошибку.[/quote]
Предложишь другой вариант решения этой задачи? Есть другие, более краткие способы? - давай, оптимизатор -);

Особенно это в программах взлома шифров грубой силой критично.

[quote="&quot"]Я просто предложил свой вариант кода, который отличается как раз этими двумя символами. Да и вообще, я не люблю коды с лишними операциями, сколько бы символов они не занимали...[/quote]
Ну если так, то своим кодом ты добавил лишний проход For и подцепил ошибку. Похоже с настоящей оптимизацией ты еще не знаком. Могу предложить код, который при хорошем подходе сокращается в 5 раз, и примерно в столько же быстрее. Посмотри, потренируйся...