Скрыть объявление
Гость отличная новость! Мы открыли доступ к ранее скрытому контенту.

Вам доступно более 44 000 видео уроков, книг и программ без VIP статуса. Более подробно ЗДЕСЬ.

Скачать Обратный отсчет от 100 до 0 в Delphi

Тема в разделе "Программирование", создана пользователем InfoNews, 20 дек 2014.

0/5, Голосов: 0

  1. InfoNews

    InfoNews Модератор

    Сообщения:
    17.815
    Симпатии:
    19.668
    Код:
    procedure Delay(ms : longint);var TheTime : LongInt;beginTheTime := GetTickCount + ms;while GetTickCount < TheTime doApplication.ProcessMessages;end;procedure TForm1.Button1Click(Sender: TObject);var i,s:integer;begins:=100;for i:=1 to 100 do begins:=s-1;edit1.Text:=inttostr(s);Delay(1000);end;end;procedure TForm1.Button2Click(Sender: TObject);beginhalt;end;procedure TForm1.FormCreate(Sender: TObject);beginedit1.Text:='100';end;


     
    Отзыв После просмотра материала "Обратный отсчет от 100 до 0 в Delphi" оставьте свою оценку и отзыв в данной теме
Оценить эту тему:
/5,
Поделиться: