I/O error 998

@xDrive · Регистрация: 22.12.2014

Author24 — интернет-сервис помощи студентам

написал процедурку для чтения из файла
имя файла input (без расширения), файл существует, обладаю всеми нужными правами для его открытия и перезаписи
на строке "read(txt, aa[i]);" вылетает ошибка "I/O error 998"
подскажите пожалуйста, где я накосячил?

Delphi

procedure readtxt(aa: array of extended; nn : integer);
var
  txt : file of  extended;
  i : integer;
 
begin
  i:=nn;
 
  assignfile(txt, 'input');
  reset(txt);
 
while not eof(txt) do
  begin
    read(txt, aa[i]);
    inc(i);
  end;
  close(txt);
end;

@Puporev · 23.08.2016, 12:55

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

файл существует

А он создан как типизированный?

@xDrive · 23.08.2016, 12:59 **[ТС]**

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

@Puporev · 23.08.2016, 13:06

Если файл текстовый, то нужно так.

Delphi

type mas=array of extended;
procedure readtxt(var txt:Textfile;var aa:mas;var nn:integer);
var  i : integer;
begin
n:=1;
assignfile(txt, 'input.txt');
reset(txt);
while not seekeof(txt) do //seekeof чтобы не прочитать пробелы в конце файла
 begin
  inc(n);
  setlegth(aa,n);
  read(txt, aa[n-1]);
 end;
closefile(txt);
end;

@xDrive · 23.08.2016, 13:09 **[ТС]**

спасибо большое, будем пробовать!

@~~AllFree~~ · 23.08.2016, 20:40

Процедуры AssignFile, ReadLn, WriteLn, и т.п. остались от турбо-паскаля, и считаются устаревшими. Не надо их трогать.

См. FileOpen, FileRead, FileWrite.

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.08.2016, 12:55	2
	Сообщение от xDrive файл существует А он создан как типизированный? 0

@xDrive 0 / 0 / 0 Регистрация: 22.12.2014 Сообщений: 4
	23.08.2016, 12:59 [ТС]	3
	файлик создавался через блокнот полагаю мне придется обращаться как к текстовому фалу считывать "числа" по одному в буферную строчку после уже преобразовывать и записывать в мой массив? 0

@xDrive 0 / 0 / 0 Регистрация: 22.12.2014 Сообщений: 4
	23.08.2016, 13:09 [ТС]	5
	спасибо большое, будем пробовать! 0

@~~AllFree~~ Заблокирован
	23.08.2016, 20:40	6
	Процедуры AssignFile, ReadLn, WriteLn, и т.п. остались от турбо-паскаля, и считаются устаревшими. Не надо их трогать. См. FileOpen, FileRead, FileWrite. 0

I/O error 998

Решение