![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Добрый день возникла проблема с написанием функции преобразование миллисекунд в формат времени
проблемы с делением !!!! Код:
function TForm1.GetTimeFromSecs(msec : Integer) : String; var hh, mm, ss ,sss: integer; begin ss := msec div 1000; // mm := msec mod 6000; // hh := mm div 3600; if hh <> 0 then Result:=Format('%2.2d:%2.2d:%2.2d', [hh,mm,ss]) else Result:=Format('%2.2d:%2.2d', [mm,ss]); end; |