VPF::Работа с временем - Форум программистов

Гость_DiMa

Дата 27.6.2005, 14:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет всем, у меня вопрос .Как каждую секунду отнимать от времени в формате hh:mm:ss
по одной секунде и выводить то, что получилось на экран в том же формате (hh:mm:ss).
Учитывая то, что если секунд будет < 0, то, соответственно от mm отнимается 1, а ss
присваивается 59 (то же самое с часами и минутами)

Albinos_x

Дата 27.6.2005, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

смотри FAQ, работа со временем

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Poseidon

Дата 27.6.2005, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Albinos_x @ 27.6.2005, 14:42)

смотри FAQ, работа со временем

http://forum.vingrad.ru/index.php?act=modu...faq§ion=576

Цитата

Как каждую секунду отнимать от времени в формате hh:mm:ss
по одной секунде и выводить то, что получилось на экран в том же формате

Если хочешь делать это каждую секунду, то без таймера (TTimer, вкладка System) не обойтись.
Ставишь Enabled у таймера в False и пишешь.

Код

{...}
var
  Form1: TForm1;
  STime: TTime; // начальное время

{...}

procedure TForm1.Button1Click(Sender: TObject);
begin
STime:= StrToTime('12:00:00'); // присваиваем начальное значение
Timer1.Enabled:= True; // запускаем таймер
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
STime:= STime - StrToTime('00:00:01'); // отнимаем секунду
Form1.Canvas.TextOut(10,10, TimeToStr(Stime)); // выводим результат
end;

Как видно на форме должн быть TTutton и TTimer.

Это сообщение отредактировал(а) Poseidon - 27.6.2005, 17:06

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »