Работа со строкой

[Lorden]

Здравствйте уважаемые форумчане!
Возникла необходимость поработать со стройокой но никак не могу придумать алгоритм действий.
Задача такая:
Строка заполняется значениями либо 0 либо 1 каждые 10 секунд, если в конце строки подряд идут три 0 то необходимо выполнить определенное действие

1000

, если четыре 0 то другое действие

10000

и так подряд может идти до 20 нулей и на каждый увеличившийся 0 нужно выполнить некое действие, с единицами аналогично.
Если к примеру подряд шли три нуля а потом вдруг появилась 1 то необходимо выполнить действие.

10001

аналогично и 4тырьмя нулями.
Спасибо!

[Пепел Феникса]

while active do
begin
  c:=ReadChar;
  if(char=='0')
  begin
    ExecuteAction(zero_count);
    zero_count:=0;
  end
  else
    inc(zero_count);
end;

примерно как то так.

[min@y™]

Рассматривать только 4 правых сивола строки? Типа 16 вариантов действий?

[Lorden]

Прошу прощения, но я не понял ни одного из ответов, требуется пересадка мозга)))

[min@y™]

требуется пересадка мозга)))

Точно пересадка? Может лучше ампутация?

[Dvoishnik]

Сообщение от min@y™

Рассматривать только 4 правых сивола строки? Типа 16 вариантов действий?

я так понял от 1 до 20 правых символов в зависимости от значения и проверка должна проходить при каждом изменении строки, так??

а можно код заполнения строки посмотреть??

[min@y™]

я так понял от 1 до 20 правых символов в зависимости от значения и проверка должна проходить при каждом изменении строки, так??

Это ты к кому обращаешься-то?

[Dvoishnik]

Сообщение от min@y™

Это ты к кому обращаешься-то?

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

[min@y™]

а!
ну ладно...

[Lorden]

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

я так понял от 1 до 20 правых символов в зависимости от значения и проверка должна проходить при каждом изменении строки, так??

а можно код заполнения строки посмотреть??

var
i:Integer;
begin
i:=random(2);
Edit1.Text:=Edit1.Text+IntToStr(i);