время в делфи

[ВалекFCRK]

Здравствуйте.


var Time:Tdatetime;
begin
Time:=now();
ShowMessage(FormatDatetime('hh:mm:s s',Time));
end;

Вот так получаю время. Как мне сделать чтобы время показывалось на 5 к примеру на 5 часов больше действительного?
Вот так не прокатило
ShowMessage(FormatDatetime('hh+5:mm :ss',Time));

Помогите)

[BDA]

uses dateutils;
...
var
  Time1: Tdatetime;
begin
  Time1 := inchour(now(), 5);
  ShowMessage(FormatDatetime('hh:mm:ss', Time1));

[AlexMas]

Time:=IncHour(Time,5);

[ВалекFCRK]

А есть какой нибудь другой способ. Потомучто у меня как будильник. ЗАдается время. И проверяется сейчас оно или нет.

[Stilet]

Потомучто у меня как будильник.

Поставь на форму (у тебя ведь оконное приложение?) компонент TTimer, задай ему Interval времени и при достижении его сработает событие таймера, в котором напишешь вывод сообщения.

[ВалекFCRK]

Нет вы не совсем поняли. ВОбщем подскажите пожалуйста как время разбить по отдельным переменным типа string.
НАпример чтобы переменные chas minuta sekunda были типа стринг и соответствовали настоящему времени по нажатию на кнопку.

НУ если честно не столь важно. можно даже в интежер

[Аватар]

DecodeTime, а дальше из ворд в стринг

[ВалекFCRK]

Можно на конкретном примере если не сложно

[Аватар]

var Hour,Min,Sec,MSec: Word;
begin
  DecodeTime(Now,Hour,Min,Sec,MSec);
end;