Вверх ↑
Ответов: 4398
Рейтинг: 687
#1: 2013-08-21 17:07:37 ЛС | профиль | цитата
Ага, и правда. Думаю...
------------ Дoбавленo в 17.07:
Так, вроде, будет нормально?


#pas
while st.Read(b, 1) = 1 do
begin
if b = _prop_TrailingStr[i + 1] then Inc(i)
else
if (i > 0) and (b <> _prop_TrailingStr[i]) then Dec(i);
Inc(k);
if i = c then break;
end;
карма: 26

0