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

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

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

Процедура GetFTime.

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

    Procedure GetFTime(Var F; Var Time : Longint);

  • Описание:

    Возвращает дату и время последней записи в файл.

  • Замечания:

    Файловой переменной F должен быть назначен типизированный, нетипизированный или текстовый файл, который должен быть открыт.

    Время, полученной в переменной Time может быть распаковано с помощью процедуры UnpackTime.

  • Пример:

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



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