Не могу додуматься как реализовать

[bakanaev]

В общем уже пару часов думаю как реализовать свое задание в код.
Суть, есть набор чисел состоящая только из трех чисел 0,1,2
записанных в ListBox
Вот ее кусок

1
1
1
2
1
1
0

(И так пару тысяч строк)
Нужно постепенно прогонять числа в цикле, и если выпадет последовательность

1
2
1
2
1
2
1

то надо выполнить действие (скажем сложить) и потом двигаемся дальше, встретилась опять последовательно опять выполнили действие и т.д.

Не могу придумать как ловить эти последовательности

Всем откликнувшимся спасибо!

[evg_m]

Нужно постепенно прогонять числа в цикле, и если выпадет последовательность

Если длина последовательности фиксирована (задана).

 if (listbox.items[i+0]='1') 
and (listbox.items[i+1]='2')
and (listbox.items[i+2]='1')
and ... 
then begin
  showmessage('Мы нашли!');
end;

k:=0;
listbox.items.delimiter:=';';
s:=listbox.DelimiterText;
while k>=0 do begin
  k:=posEx('1;2;1;2;1;2;', s, k+1);
  if k>0 then i:=k div 2 else i:=-1;
  if i>=0 then
    showmessage('Нашли в строке ' + inttostr(i));
end;

[bakanaev]

evg_m,
По ходу я не так задал вопрос, надо как только встретится последовательность выполнить действие (скажем сложить) и потом двигаемся дальше, встретилась опять последовательно опять выполнили действие и т.д.

Там строк 3 миллиона )))
P.S Поправил первый пост

[Аватар]

Чуть изменив код evg_m

for i:=0 to listbox.items.count-7 do
  if (listbox.items[i+0]='1') and 
     (listbox.items[i+1]='2') and
     (listbox.items[i+2]='1') and
     (listbox.items[i+3]='2') and
     (listbox.items[i+4]='1') and
     (listbox.items[i+5]='2') and
     (listbox.items[i+6]='1') then begin
    //выполняем действие
  end;

Но больно мрачно в ListBox. Хотя бы в StringList или просто в символьной строке или Stream

[s-andriano]

Я думаю, конечный автомат.
Задаете шаблон в массиве символов или чисел - как удобнее.
Состояние автомата =0.
Сравниваете очередной элемент с символом шаблона, имеющим номер состояния автомата, если совпадает, увеличиваете номер состояния автомата. Нет - сбрасываете в 0.
Если номер состояния достиг длины шаблона - искомая последовательность найдена.
Примерно так (не проверял):

State := 0;
for i:=0 to listbox.items.count-1 do begin
  if (listbox.items[i]=sample[State])then 
    inc(State)
  else
    State := 0;
  if State = SampleLength then begin
    //выполняем действие
    State := 0;
  end;
end;

Соответственно, код не меняется при изменении длины последовательности.

[Stilet]

мрачно в ListBox

Не то слово... Тормоза обещаются обильные учитывая

Там строк 3 миллиона )))

[bakanaev]

Сообщение от Stilet

Не то слово... Тормоза обещаются обильные учитывая

Да ладно вам))) Я не спишу не куда

[bakanaev]

Задача вновь актуальна.
Вариант который предложили выше

for i:=0 to listbox.items.count-7 do
  if (listbox.items[i+0]='1') and 
     (listbox.items[i+1]='2') and
     (listbox.items[i+2]='1') and
     (listbox.items[i+3]='2') and
     (listbox.items[i+4]='1') and
     (listbox.items[i+5]='2') and
     (listbox.items[i+6]='1') then begin
    //выполняем действие
  end;

Не подходит. Вот почему
Пусть у нас такая последовательность

1
2
1

То если в наборе будит такой кусок

1
2
1
2
1
2

То получается что последовательность находится 2 раза, что не правильно в моем случае

Выход это использовать что то типа счетчика как предложил s-andriano, но его код я что не смог понять + как не крути делфи на него все равно ругается

Сообщение от s-andriano

State := 0;
for i:=0 to listbox.items.count-1 do begin
  if (listbox.items[i]=sample[State])then 
    inc(State)
  else
    State := 0;
  if State = SampleLength then begin
    //выполняем действие
    State := 0;
  end;
end;

Может кто подскажет как реализовать?
Я пока сам буду думать, но и ваши мысли с удовольствием послушаю!

[Malgor]

for i:=0 to listbox.items.count-7 do
 begin 
 if x>0 then
     begin
        x:=x-1;
        continue
     end;
  if (listbox.items[i+0]='1') and 
     (listbox.items[i+1]='2') and
     (listbox.items[i+2]='1') and
     (listbox.items[i+3]='2') and
     (listbox.items[i+4]='1') and
     (listbox.items[i+5]='2') and
     (listbox.items[i+6]='1') then 
      begin
         x:=6;
         //выполняем действие
     end;
  end;

Коряво, но думаю что-то в этом роде должно работать.

[bakanaev]

Сообщение от Malgor

[CODE
if x>0 then
begin
x:=x-1;
continue
end;

Объясните пожалуйста зачем это делать? Я пока начинающий, так что для меня не все понятно