blob: 769b30ffafd89a43cb092a11ec37df22a11ce519 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program Example36;
{ This program demonstrates the FileAge function }
Uses sysutils;
Var S : TDateTime;
fa : Longint;
Begin
fa:=FileAge('ex36.pp');
If Fa<>-1 then
begin
S:=FileDateTodateTime(fa);
Writeln ('I''m from ',DateTimeToStr(S))
end;
End.
|
