|
@@ -8,8 +8,8 @@ Var F,D : Longint;
|
|
|
|
|
|
|
|
Begin
|
|
Begin
|
|
|
F:=FileCreate('test.dat');
|
|
F:=FileCreate('test.dat');
|
|
|
- D:=FileGetDate(D);
|
|
|
|
|
- Writeln ('File crerated on ',DateTimeToStr(FileDateToDateTime(D)));
|
|
|
|
|
|
|
+ D:=FileGetDate(F);
|
|
|
|
|
+ Writeln ('File created on ',DateTimeToStr(FileDateToDateTime(D)));
|
|
|
FileClose(F);
|
|
FileClose(F);
|
|
|
DeleteFile('test.dat');
|
|
DeleteFile('test.dat');
|
|
|
End.
|
|
End.
|
Tomas Hajny