GetTime, GetDate
Valerij Kozhevnikoff
Или я что-то не понимаю, или у меня эхотаг кривой.
var
Hour,Minute,Second,Sec100,Year,Month,Day,DayOfWeek: _longint;_ {word;}
begin
GetTime (Hour, Minute, Second, Sec100);
GetDate (Year, Month, Day, DayOfWeek );
Если word - то будет type mismatch.
А во всех остальных известных мне паскалях - именно word. И ведь и дос и винда
тоже именно в word время возвращают.
Что не так? Смотрел в сторону use32 - запутался ещё больше.
WBR, Jason.
_/(ZX)/_ /*e-mail: jason2000(не кошка)yandex.ru ICQ: 62235830*/
/np:/ *silence*
Alexey Korop
21.08.2005 в 10:36:07 Valerij Kozhevnikoff написал к All:
VK> Здравствуй, All!
VK> Или я что-то не понимаю, или у меня эхотаг кривой.
VK> var
VK> Hour,Minute,Second,Sec100,Year,Month,Day,DayOfWeek: _longint;_
VK> {word;}
VK> begin
VK> GetTime (Hour, Minute, Second, Sec100);
VK> GetDate (Year, Month, Day, DayOfWeek );
VK> Если word - то будет type mismatch.
VK> А во всех остальных известных мне паскалях - именно word.
Основной режим для VP - это именно с uses32. И интерфейсы традиционных для
BP функций переделаны с 16-битных на 32-битные, чтобы перенос программ с BP
проходил с минимальными коррекциями *текста*.
Кстати, и в Turbo Vision тоже всё сплошняком в longint.
VK> И ведь и дос и винда
VK> тоже именно в word время возвращают.
Если тебе надо с минимальными усилиями превратить 16-битную BP-программу в
32-битную VP-программу, то смена 16-битных аргументов на 32-битные при
текстуальном сохранении типа word - это удобно. А если ты знаток WinAPI, тебе
надо сэкономить байты и микросекунды и ты не озабочен мультиплатформенностью, -
ну так вызывай прямо GetLocalTime.
VK> Что не так? Смотрел в сторону use32 - запутался ещё больше.
А пробовал доку почитать? :)
С уважением, Alexey.
...В действительности всё совсем не так, как на самом деле.