Файлы. Работа с текстом.

[McFrey]

Доброго времени суток уважаемые программисты, и с профессиональным праздником вас.
Ниже код программы позволяющей сравнить содержимое двух файлов. Путь к файлам вводится вручную. Подскажите как сделать проверку на существование файла, и почему я столкнулся с такой ошибкой: файлы лежат просто на диске "с" и когда прописываешь путь вот такая бяка вылазает (см.во вложениях)

program two_files;


var
  f1, f2: text;
  n: integer;
  s1, s2, inp_1, inp_2: string;
  b: boolean;

begin
  writeln('Введите путь к файлу 1');
  read(inp_1);
  assign(f1, inp_1);
  reset(F1);
  
  writeln('Введите путь к файлу 2'); 
  read(inp_2); 
  assign(f2, inp_2);
  reset(F2);
  
  while not eof(f1) do
  begin
    Readln(F1, s1);
    if not eof(f2) then
    begin
      Readln(F2, s2);
      if s1 = s2 then
        b := true
      else b := false;
    end;
  end;
  if b = true then writeln('Содержимое файлов равно') else writeln('Содержимое файлов не равно');
  Close(f1);
  Close(f2);
  readln;
  
end.

[Валлидол]

Если Вы используете PaxcalABC.Net, то для проверки существования файла лучше использовать функцию:

FileExists('Путь_к_файлу'):boolean;

Код для проверки:

if not(FileExists(inp_1)) then writeln('Ошибка! Нет файла :( ');

[McFrey]

Валлидол, спасибо. Каккую версию паскаля использовать это не принципиально...правильно ли я понял что:

 writeln('Введите путь к файлу 1');
  read(inp_1);
  if not(FileExists(inp_1)) then writeln('Ошибка! Нет файла :( ');
  assign(f1, inp_1);
  reset(F1);

тогда почему файл просто лежит на "с" но он его не видит...."ошибка нет файла...."

[Валлидол]

У вас случайно не Windows 7 установлена?) Там для доступа к диску C: нужны права админа =). Попробуйте указать путь к файлу на другом разделе жесткого диска или запустите Паскаль от имени администратора

[McFrey]

да, семерка стоит...запустил от имени админа....файлы на диск "D" засунул...все равно тоже самое....первый файл нормально когда путь прописываешь....а когда второй прописываешь выдает "ошибка файл не существует" а потом в придачу "путь содержит недопустимые символы"

[Serge_Bliznykov]

Сообщение от McFrey

Каккую версию паскаля использовать это не принципиально...

Это Вы ОЧЕНЬ сильно заблуждаетесь. Важно.
досовский TurboPascal - это одно, Pascal ABC.NET - другое,
а Delphi/FreePascal - третье...

ну и сразу вопрос к Вам по вашему коду:

Сообщение от McFrey

 read(inp_1);
  if not(FileExists(inp_2)) then writeln('Ошибка! Нет файла :( ');

посмотрите в какую переменную Вы вводите имя и какое - проверяете.

ну и последнее, если файла нет - то нужно либо выходить из процедуры/функции, либо направлять выполенение программы по другой веточке. У Вас же выдастся сообщение и программа пойдёт дальше - Assign(f1, inp_1); Reset(...) и т.д. и reset при отсутствующем файле сгенерит ошибку выполенения, разумеется!

[McFrey]

Сообщение от Serge_Bliznykov

досовский TurboPascal - это одно, Pascal ABC.NET - другое,
а Delphi/FreePascal - третье...

- я имел в виду, какую реализацию языка использовать вот что мне не принципиально, некоторым дают жесткие рамки тобишь TurboPascal значит только TurboPascal...а у меня таких рамок нет...
относительно той переменной в которую записываю, да уже даже в сообщении исправил это я заметил.
а вот про веточку выполнения действительно спасибо, подумаем как выкарабкаться)

[McFrey]

просто вся беда в том что файлы существуют...я ввожу правильный путь к ним а он мне выдает что мол нет ты ошибаешься такого файла увы нет...

[Валлидол]

  writeln('Введите путь к файлу 1');
  readln(inp_1);
   if not(FileExists(inp_1)) then writeln('Ошибка! Нет файла ',inp_1);
   {$I-}
  assign(f1, inp_1);
   {$I+}
  reset(F1);

вот... У меня работает на все 100%

[Валлидол]

Извините за спам, сразу что то не обратил внимание на код проверки совпадения файлов:

while not eof(f1) do
  begin
    Readln(F1, s1);
    if not eof(f2) then
    begin
      Readln(F2, s2);
      if s1 = s2 then
        b := true
      else begin
            b := false;
            break;
            end;
    end;
  end;