Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Интересные телефоны micromax, понравился дизайн.

Процедура PackTime.

  • Объявление:

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

  • Описание:

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

  • Замечания:

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

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

  • Пример:

    { Пример программы для процедуры PackTime }
    Uses WinDos;
    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.



Вернуться к оглавлению справочника