|
@@ -45,7 +45,7 @@ BEGIN
|
|
do_error(1004);
|
|
do_error(1004);
|
|
Close(f);
|
|
Close(f);
|
|
|
|
|
|
- dateTime := EncodeDate(2104,2,29);
|
|
|
|
|
|
+ dateTime := EncodeDate(2096,2,29);
|
|
Assign(f,'datetest.dat');
|
|
Assign(f,'datetest.dat');
|
|
Rewrite(f);
|
|
Rewrite(f);
|
|
if FileSetDate(filerec(f).handle, DateTimeToFileDate(dateTime))<>0 then
|
|
if FileSetDate(filerec(f).handle, DateTimeToFileDate(dateTime))<>0 then
|