Запутался в цикле

[Praud]

procedure TForm3.Button1Click(Sender: TObject);
//переменные
...
//проверки
...

Infinity1:=True;
Timer1.Enabled:=True;
Interval:=StrToInt(Edit2.Text);
//Timer1.Interval:=(Interval*1000)*60;
 Timer1.Interval:=5000; // пока так для теста

while (Infinity1) do
begin
  for ii1 := 0 to 2 do
    begin
      SetCursorPos(Point_advanced[ii1].X, Point_advanced[ii1].Y);
      mouse_event(MOUSEEVENTF_LEFTDOWN,Point_advanced[ii1].X,Point_advanced[ii1].Y,0,0);
      mouse_event(MOUSEEVENTF_LEFTUP,Point_advanced[ii1].X,Point_advanced[ii1].Y,0,0);
      Sleep(Speed1);
      Application.ProcessMessages;
      if StopCircle then exit;
      if memo2.Lines.count=4 then begin proverka:=true; end;
      if (stopminicircle) and (proverka = false) then begin break; end;
      if (stopminicircle) and (proverka = true) then begin exit; end;
    end;
    iRepeats1 := iRepeats1 + 1;
    if (stopminicircle) and (proverka = false) then break;
end;


stopminicircle := false;
Timer1.Enabled:=True;

while (Infinity1) do
begin
  for ii1 := 3 to 5 do
    begin
        SetCursorPos(Point_advanced[ii1].X, Point_advanced[ii1].Y);
      mouse_event(MOUSEEVENTF_LEFTDOWN,Point_advanced[ii1].X,Point_advanced[ii1].Y,0,0);
      mouse_event(MOUSEEVENTF_LEFTUP,Point_advanced[ii1].X,Point_advanced[ii1].Y,0,0);
      Sleep(Speed1);
      Application.ProcessMessages;
      if StopCircle then exit;
      if stopminicircle then break;
    end;
    iRepeats1 := iRepeats1 + 1;
    if stopminicircle then break;
end;

stopminicircle := false;
Timer1.Enabled:=True;

....

Теперь постараюсь рассказать в чем суть

Итак, есть таймер. Заданы координаты. Разрешено задавать по 3 координаты. То есть - 3,6,9.. и т.д. После нажатия на Button начинается первый цикл. Если было задано 3 координаты ( Memo2.Lines.Count = 4, там первая строка "------1-----" так что именно 4 ), то после того как сработает таймер срабатывает Exit из процедуры, если же Memo2.Lines.Count не равно 4, то идет break и переход в другой цикл. Все работает, вот только при случае если Memo2.Lines.Count = 4 первый раз срабатывает все как я хочу. Идет переход по координатам и через интервал выходит из процедуры. Но если я второй раз нажимаю на Button при этом же условии, то мышка устанавливается на первой координате и сразу идет Exit. Почему так? Думаю какая-то переменная не обнуляется, но сколько копал - все правильно, опять таки на мой взгляд.

[northener]

А где-нибудь в коде есть строка

proverka:=false;

?

[Praud]

procedure TForm3.Timer1Timer(Sender: TObject);
begin
stopminicircle:=True;
Timer1.Enabled:=False;
proverka:=false;
end;

[northener]

Ну так пройдитесь отладчиком по Button1Click и посмотрите почему при повторном нажатии происходит выход из процедуры.

[asmprog]

задание интервала после включения таймера выглядит странным:

Timer1.Enabled:=True;
...
 Timer1.Interval:=5000; // пока так для теста

еще, есть ли какой-то смысл после второго цикла снова включать таймер?

stopminicircle := false;
Timer1.Enabled:=True;

при срабатывании таймера ведь:

stopminicircle:=True;
...
proverka:=false;

[Praud]

После второго цикла есть еще 3-ий и 4-ый и т.д поэтому есть смысл включать таймер.


2 northener - если честно я не умею отладчиком пользоваться, не знаю как он работает

[Praud]

Есть какие-то еще идеи?

[Аватар]

Exit зависит от значений переменных StopCircle, stopminicircle и proverka. Вот и проверь где засунул туда не то что надо. А вообще умиляет код типа

      if (stopminicircle) and (proverka = true) then begin exit; end;
почему не просто
      if stopminicircle and proverka then exit;

Какая особенность у proverka, в отличиии от stopminicircle?

[evg_m]

Есть какие-то еще идеи?

1. заменить переменные на локальные.
2. инициализировать флаги при входе в циклы.
3. выкинуть из цикла ProcessMessage и избавиться от бесконечного запутанного цикла.
В программе и так есть этот самый бесконечный цикл. то есть нужен
а) ГЛОБАЛЬНЫЙ счетчик проверок. (вместо for i=0 to 2 for i:=3 to 5
б) запуск проверки по таймеру (вместо sleep и ProcessMessage)
в) локальные флаги проверок (вместо глобальных)
г) разделение проверок на разовую (только при нажатии)
таймер запускается только при успехе.
и повторную (по таймеру). c контролем по числу попыток или использование контрольного времени.

procedure T....ButtonXClick(sender: TObject);
begin
  if timer1.Enabled then //что на делать если таймер проверки уже включен
  else begin
    Timer1.enabled:=     // а можем ли мы запустить таймер
  end;
end;

procedure T....Timer1Time(sender: TObejct);
var
  prov, provX: boolean;
begin
  prov:=false;
  provX:=false;
.... //код ВЫЧИСЛЯЮЩИЙ нужное значение prov , provX

  if prov then begin
      SetCursorPos(Point_advanced[ii1].X, Point_advanced[ii1].Y);
      mouse_event(MOUSEEVENTF_LEFTDOWN,Point_advanced[ii1].X,Point_advanced[ii1].Y,0,0);
      mouse_event(MOUSEEVENTF_LEFTUP,Point_advanced[ii1].X,Point_advanced[ii1].Y,0,0);
  end;

  if ...  then Timer1.enabled:=false;  //   if provx then (sender as TTimer).enabled:=false;
end;

и главное
3. написать здесь исходную задачу.

не

После нажатия на Button начинается первый цикл. Если было задано 3 координаты

а что-то вроде:
ввести в мемо данные
при нажатии на кнопку
1. проверить данные
2. если данные корректны, то имитировать нажатие мыши ...
иначе ???

[Praud]

Сообщение от Аватар

Exit зависит от значений переменных StopCircle, stopminicircle и proverka. Вот и проверь где засунул туда не то что надо. А вообще умиляет код типа

      if (stopminicircle) and (proverka = true) then begin exit; end;
почему не просто
      if stopminicircle and proverka then exit;

Какая особенность у proverka, в отличиии от stopminicircle?

Вот ищу ищу и не могу найти. А в коде begin exit end; написал чтобы 100% быть уверенным, что при true будет выполняться только exit, это я уже написал после того как перестало работать. proverka=true мне привычнее, хотя надо переучиваться.

stopminicircle переключается в true, когда заканчивается таймер.
Proverka создана для того, чтобы узнавать введено ли в Memo2 4 строки. ( 3 координаты, первая строка "-----1----" ). И если щелкает таймер а в мемо введено 8 строк к примеру, идем по ветке break и перескакиваем в другой цикл, а если 4 строки, идем по ветки exit;