Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Время [D7, Win95/98]

Кот © (2004-10-29 22:48:00)
Я недавно начял программировать на Delphi и немогу разобраться, как сделать чтобы время шло назад, т.е. например : 12:23:11 12:23:10 12:13:09 и так далее, и всё это кнечно же отображаль бы в Edit1. Заранее благлдарен

SergP (2004-10-30 19:16:00) [1]

> Кот (29.10.04 22:48)

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

Кириешки (2004-10-30 11:49:00) [2]
Timer1.Tag := Timer1.Tag + 1;
Label1.Caption := 'До взрыва компьютера осталось : ' + IntToStr(100-Timer1.Tag) + ' секунд. У вас осталось время чтобы удалиться на безопасное расстояние.';

DrPass (2004-10-30 11:47:00) [3]

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

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

Anatoly Podgoretsky (2004-10-30 11:38:00) [4]
Так вычитать надо, а не прибавлять.

jack128 (2004-10-29 23:26:00) [5]
StartTick := GetTickCount;
StartTime := EncodeTime(12, 0, 0, 0);

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

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

BlackLord2003 (2004-10-29 22:55:00) [6]
Edit1.Text:=FormatDateTime('hh:mm:ss',time-1);Конечно не совсем то, но, думаю, идея ясна!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »