| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Для новичков > MediaPlayer |
| Автор: Kirgston 11.6.2008, 21:24 |
| Ребята помогите разобратса с функцеей. 1. function FormatTime(Time: Integer): string; 2. const 3. sec = 1000; 4. min = 60 * sec; 5. hour = 60 * min; 6. var 7. h, m, s : Integer; 8. begin 9. h := Time div hour; 10. m := (Time div min) mod 60; 11. s := (Time div sec) mod 60; 12. if Time < hour then 13. Result := Format('%d:%.2d', [m, s]) 14. else 15. Result := Format('%d:%.2d:%.2d', [h, m, s]); 16. end; Если досолоно то насколько я понимаю оно: Час:= Время делим на 60 (а откуда мы с етой функцыи взяли время? Нигде оно тут непрописано.... да и в варе юнита тоже.... ето что зарезервированая?) Также и с минутами вроде. Час делим на минуты а потом с етого берьом мод... мод насколько я помню ето...тьфу уже забыл Дальше если время менше часа значит выводим ето в минутах и секундах. А если менше значит в часах, мин и с. ('%d:%.2d:%.2d', [h, m, s]) прокоментируйте плиз как оно ето выводит? что такое %d:%.2d:%.2d ето зарезервированая функция? И интересно как после етого я могу ссылатса мол label1.Caption:=FormatTime(Position)+'/'+ FormatTime(Lenght) ??? Ведь в етой функцыи неговоритса про Позицыю и продолжытельность. Чтото я тут ничего непонимаю разкажыте плиз кто может |
| Автор: Poseidon 13.6.2008, 10:05 |
| 1) Зачем http://forum.vingrad.ru/forum/topic-216395.html? 2) При чем тут MediaPlayer? |