Не могу сделать цифровые часы

[VDLab]

вот мои недоделанные часики, хотел будильников понаделать, и т п, так руки не дошли, доведешь до ума, копирайты можешь поставить свои
З.Ы.цифирьки были как в том компоненте (LCDNumber или как его там)просто шрифт у меня был такой, только после переустановки винды куда то пропал

[sid]

Ничего себе! Почти чистый WinApi! Мне до такого еще пыхтеть и пыхтеть.

[VDLab]

Да ладно, я сам новичок, при желании и нормальном доступе в интернет научиться неплохо кодить недолго

[Speeker]

А вообще функции манипулирования датой и временем такие:


Функция
Значение
Now
Системная дата и время — переменнаятипа TDateTime
DateToStr(dt)
Строка символов, изображающая датув формате dd.mm.yyy
TimeToStr(dt)
Строка символов, изображающая времяв формате hh:mm:ss
DayOf(dt)
День (номер дня в месяце), соответствующий дате, указанной в качестве параметра функции
MonthOf(dt)
Номер месяца, соответствующий дате,указанной в качестве параметра функции
WeekOf(dt)
Номер недели, соответствующий дате,указанной в качестве параметра функции
YearOf(dt)
Год, соответствующий указанной дате
DayOfWeek(dt)
Номер дня недели, соответствующийуказанной дате: 1 — воскресенье, 2 —понедельник, 3 — вторник и т. д.
StartOfWeek(w)
Дата первого дня указанной недели
HourOf(dt)
Количество часов
MinuteOf(dt)
Количество минут
SecondOf(dt)
Количество секунд
DecodeDate(dt,y,m,d)
Возвращает год, месяц и день, представленные отдельными числами
DecodeTime(dt,h,m,s,ms)
Возвращает время (часы, минуты, секунды и миллисекунды), представленноеотдельными числами
FormatDateTime(s,dt)
Строка символов, представляющая собой дату или время. Способ представления задает строка формата s, например,строка dd/mm/yyyy задает, что значением функции является дата, а строкаhh:mm— время

[execom]

А вообще функции манипулирования датой и временем такие:

Респект, уважаемый!
Так и надо отвечать на вопросы..., а то на всех исходников не напишешь! Надо помочь, а ни зделать!

[gwath]

Посмотрел вложение e Speeker
Большое спасибо!
Все искал - как бы вытащить значение из строки со временем.

Кстати - в написанном коде - это частный случай.
Из строки забираются по положению, и при значении к примеру в 05 часов (5 часов утра) - глючит и в integer никак лезть не хочет. Да и остальные сбиваются.

Как вариант - для универсальности можно переправить код на
begin
t:=now;
if HourOf(t)<=9 then
Begin
l:=timetostr(t);
h:=strtoint(copy(l,1,1));
m:=strtoint(copy(l,3,2));
s:=strtoint(copy(l,6,2));
end
Else
Begin
l:=timetostr(t);
h:=strtoint(copy(l,1,2));
m:=strtoint(copy(l,4,2));
s:=strtoint(copy(l,7,2));
end;
End;