Функция Delphi FileGetDate

Функция Delphi FileGetDate позволяет определить дату и время последней модификации файла. В качестве аргумента она принимает дескриптор файла.

Дескриптор получить можно, открыв файл с использование функции FileOpen.

Функция FileGetDate возвращает в виде целого числа дату и время последней модификации файла. Чтобы вместо этого числа получить обычное время и дату надо воспользоваться функцией FileDateToDateTime.

Пример с функцией FileGetDateДля более наглядного понимания реализуем такой пример. На форме расположим компоненты: Edit, OpenDialog и кнопку.

Нажав на кнопку откроется диалоговое окно выбора файла, выбрав файл в окне редактирования Edit будет отображена дата и время. Обработчик кнопки будет таким:

procedure TForm1.Button1Click(Sender: TObject);
var
  Handle, DataChislo : Integer;
  DataVar : TDateTime;
begin
    if OpenDialog1.Execute then
     begin
       Handle := FileOpen(OpenDialog1.FileName,0);
       DataChislo := FileGetDate(Handle);
       DataVar := FileDateToDateTime(DataChislo);
       Edit1.Text := DateTimeToStr(dataVar);
     end;
end;

Итог: мы познакомились с функцией FileGetDate и применили ее в деле.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *