Delphi/Цикл: различия между версиями
Содержимое удалено Содержимое добавлено
ВикиРин (обсуждение | вклад) Нет описания правки |
ВикиРин (обсуждение | вклад) Нет описания правки |
||
Строка 31:
</source>
Первая позволяет выводить значения переменных во время цикла. Вторая приказывает программе "поспать" на какое-то количество миллисекунд.
Код программы с новыми командами:
<source lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=1;
while a<100 do
begin
a:=a+1;
Label1.Caption:=IntToStr(a);
Application.ProcessMessages;
sleep(100);
end;
end;
</source>
==Цикл с счетчиком==
| |||