procedure Delay(ms : longint); var TheTime : LongInt; begin TheTime := GetTickCount + ms; while GetTickCount < TheTime do Application.ProcessMessages; end; procedure TForm1.Button1Click(Sender: TObject); var i,s:integer; begin s:=100; for i:=1 to 100 do begin s:=s-1; edit1.Text:=inttostr(s); Delay(1000); end; end; procedure TForm1.Button2Click(Sender: TObject); begin halt; end; procedure TForm1.FormCreate(Sender: TObject); begin edit1.Text:='100'; end;
#1
Отправлено 29 Август 2014 - 20:56
#2
Отправлено 29 Август 2014 - 21:37
Зачем это тут? Решение шольных задачек теперь сюда будем выкладывать?
Сообщение отредактировал Artemka: 29 Август 2014 - 21:37
#3
Отправлено 29 Август 2014 - 21:55
Подача неправильная. Надо было написать: "уникальный таймер инфобизнесмена. Сам Гандапас по совету ребят из бизнес молодости пользуется им для замера времени перерывов во время своих тренингов."
И хайд тридцаточку
Сообщение отредактировал Alex_MB: 29 Август 2014 - 21:58
#4
Отправлено 30 Август 2014 - 02:14
Зачем это тут? Решение шольных задачек теперь сюда будем выкладывать?
Нуу,незнал что сдесь это школьный язык.
Буду знать,спасибо.
#5
Отправлено 31 Август 2014 - 17:22
Да нормально все. Не школьный это язык. Ты просто ложи такую инфу не в инфопродукты а другую тему.
Тогда и читать ее будут те кому она актуальна.
Похожие темы
Название темы | Форум | Автор | Статистика | Последнее сообщение | |
---|---|---|---|---|---|
Ожидаем
Агрессивный гипноз.Авто-гипноз-Обратный отсчет (Женская программа) [SUNBRILLIANT] |
Ожидаем на форуме | slivup_bot |
|
|
|
Ожидаем
Обратный выхлоп без зависания [По приглашению] |
Ожидаем на форуме | slivup_bot |
|
|
|
Ожидаем
Сеанс "Обратный отсчет" [Юджиния Квант] |
Ожидаем на форуме | slivup_bot |
|
|
|
Ожидаем
Агрессивный гипноз.Авто-гипноз-Обратный отсчет (Мужская программа) [SUNBRILLIANT] |
Ожидаем на форуме | slivup_bot |
|
|
|
Ожидаем
Обратный Процесс Старения [Sigh Energy] |
Ожидаем на форуме | slivup_bot |
|
|
Количество пользователей, читающих эту тему: 2
0 пользователей, 2 гостей, 0 анонимных