mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 11:11:30 +01:00
15 lines
284 B
ObjectPascal
15 lines
284 B
ObjectPascal
Program Example39;
|
|
|
|
{ This program demonstrates the FileGetDate function }
|
|
|
|
Uses sysutils;
|
|
|
|
Var F,D : Longint;
|
|
|
|
Begin
|
|
F:=FileCreate('test.dat');
|
|
D:=FileGetDate(D);
|
|
Writeln ('File crerated on ',DateTimeToStr(FileDateToDateTime(D)));
|
|
FileClose(F);
|
|
DeleteFile('test.dat');
|
|
End. |