mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 18:49:24 +02:00
15 lines
283 B
ObjectPascal
15 lines
283 B
ObjectPascal
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. |