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

Автор: Tan 15.04.2007 17:59

Пытаюсь прочитать записи в динамичсекую память, спецификация :

Const Max = 100;
type
  MyData = array [1..Max] of ^MyRec;
  MyRec = record
    pole      : string[12];
    pole2     : string[12];
    pole3     : string[13];
    pole4     : string[11];
    pole5     : integer;
    pole6     : integer;
  end;
WorkData : MyData;

Вот из - за этого цикла вылезает 208 ошибка перегрузки (пытаюсь читать 40 записей с файла). При этом если не исользовать динамичекую память, то всё идеально работает, но как только этот цикл, то :

for i:=1 to filesize(fails) - 1 do 
 begin
     read(file,rec);
     Workdata[i]^:=rec;
 end;

Спасибо.

Добавлено через 9 мин.
Ошибка возникает даже тогда когда я просто пытаюсь присвоить любое значения записи и даже без цикла :

Workdata[i]^:=rec;

Может что - то не так в спецификации ?

Автор: Tan 15.04.2007 18:35

Спасибо, проблема решена, я с глупости забы сделать new(workdata);