Не знаю почему, но ошибка появляется только после жалкой попытки загрузить программу (промелькивает чёрный экран). Код ошибки: "Error 3: Path not found.".
Задача: Написать программу, которая будет записывать в типизированный файл данные о погоде (вводит пользователь). Перед началом работы основной программы, она проверяет наличие файла C:\Temp\Weather_Forecaster\database.db, и если его нет, программа создаёт его.
Код программы (!!!ERROR!!! - так обозначено место возникновения ошибки):
Program Weather_Forecaster_1_0;
Type
TPogoda = record
Year : Integer;
Month : Integer;
Day : Integer;
T : Integer;
end;
Var
Pogoda : TPogoda;
F1 : file of TPogoda;
Letter : string[1];
Function FileExists (FileName : String) : Boolean;
Var
F0 : File;
Begin
assign (F0, FileName);
{$I-}
Reset (F0);
{$I+}
If IOResult <> 0 then FileExists:=False
else Begin
close (F0);
FileExists:=True;
end;
end;
Begin
assign (F1, 'C:\Temp\Weather_Forecaster\database.db');
If FileExists ('C:\Temp\Weather_Forecaster\database.db') then reset (F1)
!!!ERROR!!! else rewrite (F1);
seek (F1, FileSize(F1));
repeat
write ('Year: ');
readln (Pogoda.Year);
write ('Month: ');
readln (Pogoda.Month);
write ('Day: ');
readln (Pogoda.Day);
write ('T: ');
readln (Pogoda.T);
writeln ('Press Y to repeat, N to overflow the program');
readln (Letter);
until Letter = ('N');
close (F1);
End.
