Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

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

 
Кот   (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

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


 
Кириешки ©   (2004-10-30 11:49) [5]

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


 
SergP ©   (2004-10-30 19:16) [6]


>  Кот   (29.10.04 22:48)


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



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

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.048 c
14-1098537612
тихий вовочка
2004-10-23 17:20
2004.11.14
Маленький отчет о моей поездке в Индию


14-1098951379
Григорьев Антон
2004-10-28 12:16
2004.11.14
Delphi 7 не хочет запускаться


14-1097684964
Rouse_
2004-10-13 20:29
2004.11.14
Демо сканирования сети, нужна помощь с тестированием...


14-1098862725
Егор
2004-10-27 11:38
2004.11.14
Создание .exe файла.


3-1097855884
Hmm
2004-10-15 19:58
2004.11.14
прошу, поделитесь информацией о компонентах для работы с IBase.