...я нашел 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
объявили устаревшим, исключили из поддержки, выбросили частично из кода, но
забыли почистить файл помощи. Вы так не думаете? |