Free pascal ошибка 103

Senior Member

Рейтинг (т): 13

Программа компилируется, запускается. Сразу после ввода имени файла программа вылетает, IDE показывает ошибку 103. Что не так в программе?

Нашел текст ошибки:
103 File not open Reported by the following functions : Close, Read, Write, Seek, EOf,
FilePos, FileSize, Flush, BlockRead, and BlockWrite if the file is not open.

Но не могу понять где и почему происходит ошибка.

ОС: Windows XP
IDE: FPC 2.2.2

Moderator

Рейтинг (т): 878

Файл с введенным_именем.TXT в текущей папке присутствует? Тогда присоедини его тоже сюда (в архиве, чтоб можно было посмотреть, где именно у тебя вылетает программа). У меня с пустым файлом она просто зависает, а не вылетает.

Senior Member

Рейтинг (т): 13

Программа должна разобрать этот файл.

Добавлено 17.10.09, 17:33
Вообще задача такая: в файле находится список альянса, который содержит ник игрока и название его городов и координат островов. Надо разобрать этот файл, т.е. вытащить из него ники игроков и координаты островов для каждого игрока, и сохранить данные в типизированный файл.

Прикреплённый файл1.zip (15.65 Кбайт, скачиваний: 183)

Senior Member

Рейтинг (т): 13

Moderator

Рейтинг (т): 878

Ошибка здесь:

Смотри: ты при первом заходе в Case имеешь step = 1, конец файла НЕ достигнут, и ты файл закрыл… Что дальше? Что изменилось? Ничего, step все так же = 1, файл закрыт, попытка применить EOF к закрытому файлу приводит к тому, что ты видишь… Там точно нужен NOT?

Senior Member

Рейтинг (т): 13

Спасибо, я сейчас посмотрю у себя в алгоритме.

Добавлено 17.10.09, 17:54
Да, действительно Not лишний.
Спасибо. +1

Здравствуйте, столкнулся с такой проблемой при открытии типизированного файла все происходит нормально, но когда нажимаю кнопку отмена вместо открыть появляется ошибка I/O error 103

procedure TForm1.N5Click(Sender: TObject);  // Open file
type
zapic=record
      tablica:string[1];
      fynkci9:string[200];
      kolvo_strok:integer;
      kolvo_el:integer;
      end;
var
j:integer;
ft:file of zapic;
s:zapic;
m:string;
begin
OpenDialog1.Title:='Открыть файл';
openDialog1.Filter :='Файлы таблицы истинности|*.tabl';
if OpenDialog1.Execute then
  begin
   fname:=OpenDialog1.FileName;
   AssignFile(ft,fname);
   Reset(ft);
  end
  else ShowMessage('Открытие файла остановлено');
j:=0;
read(ft,s);
stringgrid2.RowCount:=s.kolvo_strok;
while not eof(ft) do
  begin
   read(ft,s);
   stringgrid2.Cells[0,j]:=s.tablica;
   inc(j);
  end;
edit1.Text:=inttostr(s.kolvo_el);
edit2.Text:=s.fynkci9;
closeFile(ft);
end;

Пытался посмотреть по шагам ставлю указатель на начало процедуры, дойдя до строки

if OpenDialog1.Execute then

указатель почему-то перепрыгивает совсем на другую процедуру

procedure TForm1.Timer1Timer(Sender: TObject);
begin
StringGrid2.TopRow := StringGrid1.TopRow;
end;

Извиняюсь за созданную тему решение было найденно добавлением оператора exit

.....
else begin ShowMessage('Открытие файла остановлено'); exit; end;
....

Цитата

решение было найденно добавлением оператора exit

А зачем тебе лишний Exit, когда и без него прекрасно все можно сделать? Ты зачем разбил последовательность операторов на 2 части? Вот так что, кто-то тебе запретил делать:

begin
  OpenDialog1.Title:='Открыть файл';
  openDialog1.Filter :='Файлы таблицы истинности|*.tabl';
  if OpenDialog1.Execute then
  begin
    fname:=OpenDialog1.FileName;
    AssignFile(ft,fname);
    Reset(ft);
    j:=0;
    read(ft,s);
    stringgrid2.RowCount:=s.kolvo_strok;
    while not eof(ft) do
    begin
      read(ft,s);
      stringgrid2.Cells[0,j]:=s.tablica;
      inc(j);
    end;
    edit1.Text:=inttostr(s.kolvo_el);
    edit2.Text:=s.fynkci9;
    closeFile(ft);
  end
  else ShowMessage('Открытие файла остановлено');
end;



  


                       
  

? Никаких Exit-ов, заметь… И код читается лучше… Кстати, ошибки при чтении тоже надо бы обрабатывать, нельзя быть уверенным на 100%, что их не будет…