[Rhot]

Очень давно не работал с делфи, все забыл. Вообщем вопрос, как сделать, чтобы Time или SysUtils.Time или не важно что выводило время сразу отбрасывая секунды. Чтобы не мучаться, отбрасывая вручную. Верю что так можно =)

[TOJluK]

FormatDateTime посмотри

[Rhot]

time_ok:=SysUtils.Time;
FormatDateTime('t', time_ok);
lbl2.caption:=TimeToStr(time_ok);

Выводит все равно в формате чч:мм:сс

[Black Raider]

Сообщение от 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

[Rhot]

Спасибо заработало!
Если не затруднит ещё такой вопрос:

date_ok:=SysUtils.Date;
DateSeparator:='_';
lbl2.caption:=datetostr(date_ok);

Как был разделитель даты 27.07.2010 так и остался. Почему так?

[Black Raider]

Вот так:

Код:

date_ok:=SysUtils.Date;
DateSeparator := '_';
ShortDateFormat := 'dd/mm/yyyy';
label1.caption:=datetostr(now());