FileDateToDateTime
Модуль: SysUtils
function FileDateToDateTime(FileDate: Integer): TDateTime;
С FileDateToDateTime простым способом можно преобразовать дату , сохраненную в виде числа 32-разрядного целого числа в читаемом формате TDateTime , что особенно полезно в случае использования таких функций, как FileAge или FileGetDate .
Простая программа представлена в листинге. Он извлекает дату создания созданного пользователем файла, а затем преобразует его в более читаемую форму для отображения пользователю:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
program Foo; uses SysUtils, Dialogs; var S : String; begin if PromptForFileName(S) then begin ShowMessage(DateToStr(FileDateToDateTime(FileAge(S)))); end; end. |