FileGetDate
Original Reporter info from Mantis: FPCCore
-
Reporter name: FPC core team
Original Reporter info from Mantis: FPCCore
- Reporter name: FPC core team
Description:
// by fpc 1.0.10 user's manual:
// output is crash under win32 target:
// this is bad: D:=FileGetDate(D); Should be D:=FileGetDate(F);
// file unitsse77.htm
Program Example39;
{ This program demonstrates the FileGetDate function }
Uses sysutils;
Var F,D : Longint;
Begin
F:=FileCreate('test.dat');
D:=FileGetDate(D); // Bad, correct is D:=FileGetDate(F);
Writeln ('File crerated on ',DateTimeToStr(FileDateToDateTime(D)));
FileClose(F);
DeleteFile('test.dat');
End.
Additional information:
Reporter: Licciardi Salvatore
EMail: turylicciardi at tiscalinet dot it
Mantis conversion info:
- Mantis ID: 5022
- OS: All
- Version: 1.0.10
- Fixed in version: 1.9.3