Советы по 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]




Содержание  Назад  Вперед