Помогите с Timer на Delphi

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Morsik
Сообщения: 1
Зарегистрирован: 27 июн 2010, 20:31

Хочу сделать Timer, чтобы тикало время и тикало и переходило с секунд в минуты. Например: 1) 0:58, 0:59,1:00,1:01 и так далее. Помогите пожалуйста. Ну очнь прошу.
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

В чём проблема-то - ставишь таймер на форму выставляешь в настройках инетрвал 1000 (1секунда) дальше событие он таймер.
Заводишь глобальную переменную при старте таймера задаёшь её значение в 0 и каждый тик добавляешь еденицу, дальше выводишь её в эдит какой-нибудъ вычисляя минуты и секунды.
По инету готовых примеров секундомеров кучами валяется..
[syntax=Delphi] [/syntax]
Gakuro
Сообщения: 3
Зарегистрирован: 08 сен 2010, 07:44

В общем-то так оно и есть. Непонятно какой отсчёт времени вам нужен: вперёд или назад?
Если вперёд, я пользовался функцией SystemTimeToDateTime:
function GetCurrentDateTime: TDateTime;
var SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
Result := SystemTimeToDateTime(SystemTime);
end;
..а потом в программе:
TextTime.Caption:=TimeToStr(GetCurrentDateTime); (у меня TextTime: TLabel ;)
;)
Ответить