blob: 1fa68e2b8f50d3b36ddf906182faccb8344f9e51 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Program Example39;
{ This program demonstrates the FileGetDate function }
Uses sysutils;
Var F,D : Longint;
Begin
F:=FileCreate('test.dat');
D:=FileGetDate(F);
Writeln ('File created on ',DateTimeToStr(FileDateToDateTime(D)));
FileClose(F);
DeleteFile('test.dat');
End.
|
