Скачать: CL | DM;

Отсчет времени   Найти похожие ветки 

← →
Pipelly   (2003-02-07 20:10) [0]

Добрый вечер.

У меня вопрос по поводу отсчета времени. Нужно отсчитать время от 10 до 0. Я понимаю, что нужно кинуть на форму таймер, установить интервал равный одной секунде (1000). А в обработчике таймера уже работать. Но вот как сделать отсчет от 10 секунд до нуля и выводить этот процесс в Caption формы я просто не знаю. Помогите, если будет время. Примеры никогда не мешают!

---

← →
Vlad1 ©   (2003-02-07 20:57) [1]

Нечто вроде следующего:
....................................................
var Form1:Tform1;
integer i:=10;
implementation
...............................................
procedure Form1.Timer1Timer(Sender:TObject);
begin
caption:=inttostr(i);
dec(i);
if i=-1 then timer1.enabled:=false;
end;
........................................................
Или присваивай i значение 10 перед включением таймера.

---

← →
Vlad1 ©   (2003-02-07 20:58) [2]

Поправка:
var Form1:Tform1;
integer i=10;
implementation

---

← →
Kair ©   (2003-02-07 21:03) [3]

>Vlad1 © (07.02.03 20:58)
>integer i=10;

Кхм-кхм. :)

---

← →
Anatoly Podgoretsky ©   (2003-02-07 21:11) [4]

Вроде бы еще в первом классе учат вычитать, я не ошибаюсь?

---

← →
Palladin ©   (2003-02-07 21:15) [5]

дело в том что собрать и использовать едино знания из разных областей не каждому дано...
это я из этого форума выяснил...

---

← →
Style   (2003-02-07 21:32) [6]

Хотя можно и отчитать время так! тебе 10 сек надо
Способов может быть много.


procedure MainProc
var
dt: TDateTime;
begin
dt := Now;
repeat
Application.ProcessMessages;
if(TimeToStr(Now-dt) = "0:00:10") then break;
until dt = 0;
ShowMessage("Типа все");
end;

---

← →
Vlad1 ©   (2003-02-08 12:26) [7]

>Kair ©
Мда-а... Сам поражаюсь. В пояснение могу сказать только одно:
В детстве бабушка мне часто говорила: если весь день провёл с C++, то прежде чем переходить к Delphi, сделай перерыв. Я бабушку не слушал... с печальными последствиями. Вчера еле удержался, чтобы не набрать
if (i==-1)
{
Timer1->Enabled=false;
}

---

← →
reticon ©   (2003-02-08 23:01) [8]

var
sec: integer;
....
sec:=10;
....

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
sec:=sec-1;
Label1.Caption:=IntToStr(sec);
if sec = 0 then
begin
ShowMessage("Отсчет закончен");
Timer1.Enabled:=false;
end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c