Страница 1 из 1
Помогите с Timer на Delphi
Добавлено: 27 июн 2010, 20:38
Morsik
Хочу сделать Timer, чтобы тикало время и тикало и переходило с секунд в минуты. Например: 1) 0:58, 0:59,1:00,1:01 и так далее. Помогите пожалуйста. Ну очнь прошу.
Re: Помогите с Timer на Delphi
Добавлено: 28 июн 2010, 10:17
Duncon
В чём проблема-то - ставишь таймер на форму выставляешь в настройках инетрвал 1000 (1секунда) дальше событие он таймер.
Заводишь глобальную переменную при старте таймера задаёшь её значение в 0 и каждый тик добавляешь еденицу, дальше выводишь её в эдит какой-нибудъ вычисляя минуты и секунды.
По инету готовых примеров секундомеров кучами валяется..
Re: Помогите с Timer на Delphi
Добавлено: 21 сен 2010, 05:30
Gakuro
В общем-то так оно и есть. Непонятно какой отсчёт времени вам нужен: вперёд или назад?
Если вперёд, я пользовался функцией SystemTimeToDateTime:
function GetCurrentDateTime: TDateTime;
var SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
Result := SystemTimeToDateTime(SystemTime);
end;
..а потом в программе:
TextTime.Caption:=TimeToStr(GetCurrentDateTime); (у меня TextTime: TLabel
