PackTime (процедура) (модуль WinDos)

Язык:
Русский
English

 PackTime (процедура)   (модуль WinDos)


Преобразовывает запись типа DateTime в LongInt.

Объявление

 Procedure PackTime(Var T : DateTime; Var Time : Longint);

Режим

Windows, Real, Protected

Замечания

Преобразовывает запись типа DateTime в 4-байтовое число типа LongInt, в котором хранятся дата и время. Это число используется процедурами SetFTime и GetFTime.

Поля в записи DateTime не проверяются на принадлежность допустимому диапазону значений.

Смотри также

Пример

Язык:
Русский
English


 { Пример программы для процедур GetFTime, PackTime, SetFTime и UnpackTime }

uses Dos;

var
  F             : Text;
  H, M, S, Hund : Word;      { Для GetTime}
  FTime         : LongInt;   { Для Get/SetFTime}
  Dt            : TDateTime; { Для Pack/UnpackTime}

function LeadingZero(W : Word) : String;
var
  S : String;
begin
 Str(W : 0, S);
 if Length(S) = 1 then
    S := '0' + S;
  LeadingZero := S;
end;

begin
  Assign(F, 'TEST.TXT');
 GetTime(H, M, S, Hund);
 ReWrite(F);         { Создаём новый файл }
  GetFTime(F, FTime); { Получаем дату создания }
 WriteLn('Файл создан в ', LeadingZero(H), ':',
                            LeadingZero(M), ':', LeadingZero(S));
  UnpackTime(FTime, Dt);
 with Dt do
 begin
   WriteLn('Атрибут времени файла ', LeadingZero(Hour), ':',
               LeadingZero(Min), ':', LeadingZero(Sec));
    Hour := 0;
   Min := 1;
   Sec := 0;
    PackTime(Dt, Ftime);
   WriteLn('Атрибут времени файла установлен на 00:01:00');
   Reset(F); { Открываем файл на чтение }
             { (Вызов Close обновит атрибут времени) }
    SetFTime(F, FTime);
 end;
 Close(F);   { Закрываем файл }
end.
Тэги: PackTime
| G+
Код для вставки: :: :: :: ::
Поделиться: // //