Советы по Delphi
Проблема со временем
...я нашел Time24Hour в файлах помощи, как вы и советовали. Но...
вот код для EncodeTime в SysUtils.Pas file:
|
function DoEncodeTime(Hour, Min, Sec, MSec: Word; var Time: TDateTime): Boolean; begin Result := False; if (Hour < 24) and (Min < 60) and (Sec < 60) and (MSec < 1000) then begin Time := (LongMul(Hour * 60 + Min, 60000) + Sec * 1000 + MSec) / MSecsPerDay; Result := True; end; end; function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime; begin if not DoEncodeTime(Hour, Min, Sec, MSec, Result) then ConvertError(LoadStr(STimeEncodeError)); end; |
Как вы можете видеть, проверка Time24Hour присутствует. Я думал в Browser все будет также. Ничего подобного! Я уж грешным делом подумал, что Time24Hour объявили устаревшим, исключили из поддержки, выбросили частично из кода, но забыли почистить файл помощи. Вы так не думаете? [001415]
