Время

← →
Кот (2004-10-29 22:48) [0]

Я недавно начял программировать на Delphi и немогу разобраться, как сделать чтобы время шло назад, т.е. например : 12:23:11 12:23:10 12:13:09 и так далее, и всё это кнечно же отображаль бы в Edit1. Заранее благлдарен

← →
BlackLord2003 (2004-10-29 22:55) [1]

Edit1.Text:=FormatDateTime("hh:mm:ss",time-1);Конечно не совсем то, но, думаю, идея ясна!

← →
jack128 © (2004-10-29 23:26) [2]

StartTick := GetTickCount;
StartTime := EncodeTime(12, 0, 0, 0);

в событии OnTimer компонента TTimer

Edit1.Text:=FormatDateTime("hh:mm:ss",StartTime - (GetTickCount - StartTick)/1000/60/60/24);

← →
Anatoly Podgoretsky © (2004-10-30 11:38) [3]

Так вычитать надо, а не прибавлять.

← →
DrPass © (2004-10-30 11:47) [4]

> как сделать чтобы время шло назад, т.е. например : 12:23:11
> 12:23:10 12:13:09

Для этого тебе нужно двигаться со скоростью, в два раза превышающей скорость света

Timer1.Tag := Timer1.Tag + 1;
Label1.Caption := "До взрыва компьютера осталось : " + IntToStr(100-Timer1.Tag) + " секунд. У вас осталось время чтобы удалиться на безопасное расстояние.";

> Кот (29.10.04 22:48)

Бомбу делаешь?

Время Найти похожие ветки