Версия для печати темы

Автор: Psychologist 24.01.2008 3:28

Здравствуйте! Помогите, пожалуйста найти ошибку в программе.
Не знаю почему, но ошибка появляется только после жалкой попытки загрузить программу (промелькивает чёрный экран). Код ошибки: "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.

Автор: мисс_граффити 24.01.2008 4:05

папка C:\Temp\Weather_Forecaster создана?

Автор: Psychologist 24.01.2008 4:08

Да, 100%!

Автор: мисс_граффити 24.01.2008 4:36

не знаю, какой у тебя компилятор...
в TP7 проблема решается сокращением названия папки Weather_Forecaster...

Автор: Psychologist 24.01.2008 5:02

мисс_граффити, большое спасибо! Всё работает.