прерывание цикла

[SarahConner]

Приветствую всех уважаемых программеров.
Уже второй день не могу справится, как кажется, с простой задачкой.
У меня есть программа, в которой обновляются строки с данными (скорость обновления переменная - то быстрей, то медленней). Я же написала программку, где мышка скачет на обновляемые строки, копирует их (Ctrl+C), вставляет в мой блакнот (и там я уже с этими данными потом работаю), затем ждет (Sleep(sec*1000),чтобы данные обновились и так по-кругу (for I := 1 to 1800 do) .
вопрос. по-скольку мышка скачет в цикле,
1) как мне уйти от конкретного числа итераций;
2) как прервать цикл для подстройки под изменение скорости обновления строк в чужой программе. Т.е. нужно типа запаузить, поменять в Edit2 параметр "sec" и опять запустить цикл.

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

[Stilet]

Вопрос в лоппп: Ты это в потоке делаешь? Если нет рекомендую в отдельный поток вывалить эти действия.

[SarahConner]

ну,... я делаю так, наверное это не в потоке
//==
procedure TForm1.Button1Click(Sender: TObject);
begin
sec:=strtoint(edit1.Text);

for I := 1 to 1800 do
begin //for i=0
f1:= TStringList.Create();
x1:=564; y1:=199; x2:=52; y2:=783; x3:=1235; y3:=23; x4:=624; y4:=37;
SetCursorPos(x1, y1);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x1, y1, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x1, y1, 0, 0);
SetCursorPos(x2, y2);

и т.д.

memo1.Lines.add('цикл раз '+inttostr(i));
SetCursorPos(618, 47);
Sleep(sec*1000);

end;

А если в потоке, то по каким ключевым словам искать. попробую слово "ПОТОК" )

[Utkin]

Уйти изх цикла можно через Break... Выкидывает на следующую за циклом конструкцию (либо сразу после end, в случае если к циклу прилеплен блок). Подробно - http://www.delphisources.ru/pages/fa...Break.php.html

[Stilet]

А если в потоке, то по каким ключевым словам искать

TThread ищи.

[evg_m]

затем ждет (Sleep(sec*1000)

;ждать sllep( strtoint(edit2.text) *1000) и не нужно останавливать цикл