Цитата:
|
Сообщение от Rhot
time_ok:=SysUtils.Time;
FormatDateTime('t', time_ok);
lbl2.caption:=TimeToStr(time_ok);
Выводит все равно в формате чч:мм:сс  |
ну функция FormatDateTime возвращает string так что в итоге имеем такой код:
Код:
time_ok:=SysUtils.Time;
label1.caption:=FormatDateTime('t', time_ok);
либо как вариант можете посмотреть в сторону функции DecodeDateTime