tfile1.pp 864 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  1. PROGRAM Test;
  2. USES
  3. SysUtils;
  4. procedure do_error(l : longint);
  5. begin
  6. writeln('Error near number ',l);
  7. halt(1);
  8. end;
  9. VAR
  10. dateTime: TDateTime;
  11. f : file;
  12. BEGIN
  13. if FileExists('datetest.dat') then
  14. begin
  15. Assign(f,'datetest.dat');
  16. Erase(f);
  17. end;
  18. if FileExists('datetest.dat') then
  19. do_error(1000);
  20. FileClose(FileCreate('datetest.dat'));
  21. if not(FileExists('datetest.dat')) then
  22. do_error(1001);
  23. dateTime := IncMonth(Now, -1);
  24. if FileSetDate('datetest.dat', DateTimeToFileDate(dateTime))<>0 then
  25. do_error(1002);
  26. dateTime := IncMonth(Now, -1);
  27. Assign(f,'datetest.dat');
  28. Rewrite(f);
  29. if FileSetDate(filerec(f).handle, DateTimeToFileDate(dateTime))<>0 then
  30. do_error(1003);
  31. Close(f);
  32. if FileExists('datetest.dat') then
  33. begin
  34. Assign(f,'datetest.dat');
  35. Erase(f);
  36. end;
  37. END.