Упростить конструкцию

← →
нехочу называться (2005-06-08 22:15) [0]

Помогите упростить конструкцию:
mp:=mediaplayer1.Position; hi:=Trunc(mp/25/60/60); mi:=Trunc(mp/25/60-(hi*60)); si:=Trunc(mp/25-(mi*60)); h:=IntToStr(hi); m:=IntToStr(mi); s:=IntToStr(si); if Length(h)=1 then h:="0"+h; if Length(m)=1 then m:="0"+m; if Length(s)=1 then s:="0"+s; Label1.Caption:=h+":"+m+":"+s;

← →
Alx2 © (2005-06-08 22:20) [1]

Да вроде и так просто.

Разве что чуток короче будет так:

Label1.Caption:=TimeToStr(mediaplayer1.Position/2160000);

← →
нехочу называться (2005-06-08 22:21) [2]

=)

Спасибо.

← →
Alx2 © (2005-06-08 22:24) [3]

Заработало хоть? (самому интересно :) )

← →
нехочу называться (2005-06-08 22:31) [4]

Как ни странно =)
С первого раза скомпилировалось и работает как надо.

← →
Virgo_Style © (2005-06-08 22:47) [5]

нехочу называться (08.06.05 22:31) [4]

Кажется, Position может выдаваться в кадрах или миллисекундах в зависимости от не помню чего. Так было бы надежнее - возможно, где-то будет не 25 кадров в секунду...

> Помогите упростить конструкцию:

Ставим TimeFormat=tfHMS. Если верить справке, то после этого никакие вспомогательные переменные не нужны, а весь приведенный код заменяется одним оператором:
with MediaPlayer1 do Label1.Caption := Format("%2.2d:%2.2d:%2.2d", [Position and $FF, Position and $FF00 shr 8, Position and $FF0000 shr 16]);

← →
нехочу называться (2005-06-09 00:31) [7]

Юрий Зотов © (09.06.05 00:03) [6]
Или справка врет или одно из двух. Но Ваш вариант показывает:
00:00:00 = a:b:c
где а постоянно увеличивается со скоростью кадров в сек. до 250, а потом увеичивается b на 1 и снова а. b до 20 я подождал, потом надоело =)

> нехочу называться (09.06.05 00:31) [7]

Идея кода обязана работать - она настолько элементарна, что не работать буквально не может. Нужно просто повнимательнее посмотреть справку по TimeFormat и внести поправки. Вероятнее всего, нужно использовать другое значение TimeFormat.

Упростить конструкцию Найти похожие ветки