Delphi/Цикл: различия между версиями

== Цикл «Делай пока верно условие» ==

Общий вид цикла этого типа:

while условие do

begin

//тело цикла.

end;

Программа «вертится» по кругу. Но бесконечно цикл идти не может, если условие будет неверное, цикл остановится. Давайте напишем программу с циклом.

procedure TForm1.Button1Click(Sender: TObject);

var a:integer;

end;

end;

Почему Label показывает нам сразу сотню? Дело в том, что цикл идет на столько быстро, что наш глаз не успевает заметить как меняются числа: 1..10..20…

Чтобы увидеть как меняются числа нужно приписать следующие команды:

Application.ProcessMessages;

и

sleep(<число миллисекунд>);

Первая позволяет выводить значения переменных во время цикла. Вторая приказывает программе «поспать» на какое-то количество миллисекунд.

Код программы с новыми командами:

procedure TForm1.Button1Click(Sender: TObject);

var a:integer;

end;

end;

 

== Цикл с счётчиком ==