Помогите с циклом...

← →
AlexHawk (2004-12-02 23:31) [0]

Вот код программы которая выводит текст из МЕМО на 4-е лайбла снизу вверх, как титры. Один хороший человек дал код. Так, вот не подскажите как сделать чтобы после клика на Кнопку "СТАРТ" шел цикл и остановитьего можно былобы еще одной кнопкой "СТОП"
procedure TForm1.Button1Click(Sender: TObject); var N,k:integer; X:cardinal; begin B:=TStringList.Create; for n:=0 to 3 do B.Add(" "); for n:=0 to memo1.Lines.Count-1 do B.Add (memo1.lines.strings[n]); for n:=0 to 3 do B.Add(" "); n:=B.Count; for k:=0 to n-4 do begin copey_to_label(k); X:=gettickcount+500; while gettickcount<X do application.ProcessMessages; end; end; procedure TForm1.copey_to_label(k:word); begin label1.caption:=copy(B.strings[k],1,16); label2.caption:=copy(B.strings[k+1],1,16); label3.caption:=copy(B.strings[k+2],1,16); label4.caption:=copy(B.strings[k+3],1,16); end; end.

← →
TButton © (2004-12-02 23:33) [1]

спроси хорошего человека =)

← →
Evgeny V © (2004-12-03 07:09) [2]

Например так

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Tag:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
....
begin
Button1.Tag:=0;
......
for k:=0 to n-4 do
begin
application.ProcessMessages;
If Button1.Tag<>0 then
break;
..........
end;
end;

← →
AlexHawk (2004-12-03 20:27) [3]

Все супер! Но как сделать не прекращающийся цикл после нажатия кнопки Старт(Button1) . Подскажите Please!!

> [3] AlexHawk (03.12.04 20:27)

Вопрос непонятен, поясните. Почему не подошёл вариант [2]?

Вообще непрекращающийся цикл можно сделать так: while True do или так: repeat until False.

2 AlexHawk (03.12.04 20:27) [3]
>Все супер! Но как сделать не прекращающийся цикл после нажатия кнопки Старт(Button1)
У тебя изначально неправильный подход к решению этой задачи.
Я уверен, что у "хорошнго человека" не стояла задача непрекрацающегося цикла. У тому же, наверное, тебе захочется когда-нибудь остановить цикл.
Поэтому одно из решений - использование отдельного потока, в котором цикл будет непрекращающимся, как советует egin...end © (03.12.04 20:33) [4]

Помогите с циклом... Найти похожие ветки