Считывания информации из файла для массива от записи

@Gubila_2000 · Регистрация: 07.11.2014

В общем ситуация такая: Есть массив от записи, в полях которой есть еще массивы. Хочу из файла считать данные для этого массива и вывести их на экран в виде таблицы и на этом моменте вылетает ошибка 106.

Pascal

begin
                                reset(tic_all);
                                Writeln('-------------------------------------------');
                                Writeln('|', 'тут', '|', 'кароч', '|', 'названия столбцов', ' |');
                                Writeln('-------------------------------------------');
                                for i:=1 to r do begin
                                readln(tic_all, a[i].b);
                                read(tic_all, a[i].nr);
                                        for j:=1 to a[i].b do begin
                                        read(tic_all, a[i].nb[j], a[i].vb[j]);
                                        Writeln('|', a[i].nr, '|', a[i].nr:11, '|', a[i].nb[j]:14, '|', a[i].vb[j]:12:4, '|');
                                        Writeln('-------------------------------------------');
                                        end;
                                end;
                                close(tic_all);
                        end;

Пример файла выглядит так:

2

AA1111 111 32.000
AA1111 222 65.150

где первый столбец a[i].nr, второй a[i].nb[j], третий a[i].vb[j].

С файлами работаю впервые. Что я делаю не так?

Добавлено через 14 часов 3 минуты
переделал запись на такой вид:

2 hd8569 256 64.000
hd8569 512 32.768

Вот так произвожу запись:

Pascal

assign(tic_all, 'tic_all.txt');
        rewrite(tic_all);
        assign(tic_print, 'tic_print.txt');
        rewrite(tic_print);
 
        For i:=1 to r do begin
                write('‚ўҐ¤ЁвҐ *®¬Ґа аҐ©б*: ');
                readln(a[i].nr);
                Writeln;
                Write('Љ®««ЁзҐбвў® ЎЁ«Ґв®ў ў нв®¬ аҐ©бҐ: ');
                readln(a[i].b);
                Writeln;
 
 
                clrscr;
 
                For j:=1 to a[i].b do begin
                  Write('ђҐ©б: ', a[i].nr);
                  writeln;
                  Writeln;
                  Write('‚ўҐ¤ЁвҐ *®¬Ґа ЎЁ«Ґв*: ');
                  Readln(a[i].nb[j]);
                  Writeln;
                  Write('‚ўҐ¤ЁвҐ ўҐб Ў*Ј*¦*: ');
                  Readln(a[i].vb[j]);
                  Writeln;
                  clrscr;
                end;
        end;
        Clrscr;
        For i:= 1 to r do begin
                Write(tic_all, a[i].b);
                 for j:= 1 to a[i].b do begin
 
                        Write(tic_all, a[i].nr, a[i].nb[j], a[i].vb[j]:10:3);
                        Writeln(tic_all);
                        if a[i].vb[j]>30 then
                                Writeln(tic_print, a[i].nr, ' ', a[i].nb[j], ' ', a[i].vb[j]:10:3);
 
                 end;
                 end;
        close(tic_all);
        close(tic_print);

так же ошибка с кодом 106. Я не понимаю почему он читает в не правильном порядке.

Добавлено через 23 часа 35 минут
Понял почему он считывает в неправильном порядке. Вероятно ему мешают пробелы, которые он воспринимает как строковые значения. Переделал запись в файл на каждое значение writeln, все заработало. Но ведь когда я создавал файл числового массива, я считывал именно строками, где между значениями стояли пробелы, и все работало хорошо. Может кто объяснить, почему считывание с файла, в данном случае, такое капризное?

@Puporev · 07.12.2014, 10:35

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

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

Если файл содержит только числа и пробелы, то его не читают строками, а просто считывают числа, пробелы при этом игнорируются. Например такой файл
1 2 3 5
читают так

Pascal

n:=0;
while not seekeof(f) do//seekeof(f) для того чтобы не читал пробелы после последнего числа
 begin
  n:=n+1;
  read(f,a[n]);
 end;

Добавлено через 1 минуту
А вот если в файле есть не числовые данные, то его нужно читать построчно и парсить каждую строку.

Опции темы