Работа с динамическими массивами типа record

[Олвин]

Создал динамический массив такого типа:

type
  TNeedList = record
                Len, Num : cardinal;
              end;
var
  NeedList : array of TNeedList;

После этого задавал длину с помощью SetLength. При выходе из процедуры в которой объявлен массив программа вылетает с ошибкой Invalid pointer operation. Попытка сделать SetLength(NeedList, 0) ничего не меняет, а SetLength(NeedList, 1) даёт Access violation.

PS Вручную создавать связанный список лень =)

[Ghost of Night]

Может дело не в массиве?

[GunSmoker]

Дело не в этом массиве. У вас порча стека. Вы затираете переменную NeedList.

В программе есть статические массивы? Опция Range Check включена? Используются низкоуровневые процедуры типа Move, FillChar, ZeroMemory? Идёт работа с указателями?

[Олвин]

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

Включил Range Check и понял, что дурак.. Ведь SetLength(NeedList, 100) дает NeedList[0..99], а не NeedList[1..100]. Вечером проверю - отпишусь.

UPD: всё верно, благодарю =)

[Aliens_wolfs]

Так тоже будет работать создает список массивов память ячейкам вы ваделяете по мере надобности

type
  TNeedList = record
                Len, Num : cardinal;
              end;
var
  NeedList : array of TNeedList;
begin
SetLength(NeedList, 1);
NeedList[0].Len:=1;
SetLength(NeedList, 2);
NeedList[1].Len:=2;
showmessage(inttostr(NeedList[0].Len));
showmessage(inttostr(NeedList[1].Len));
//Это уничтожает весь моссив
SetLength(NeedList, 0);

Либо так но масив ограничен и сразу занимает память на 100 ячеек, это удобно когда мало параметров в массиве

type
  TNeedList = record
                Len, Num : cardinal;
              end;
var
  NeedList : array[0..99] of TNeedList; 
begin
NeedList[0].Len:=1;
NeedList[1].Len:=2;
showmessage(inttostr(NeedList[0].Len));
showmessage(inttostr(NeedList[1].Len));

[Олвин]

Aliens_wolfs, у меня почти так и есть. Только память выделяется один раз, но заранее неизвестно на сколько элементов. Вопрос в другом был - был выход за границы допустимого диапазона, поэтому при завершении процедуры вылетала ошибка. (видимо из-за автоматической очистки памяти)

[Aliens_wolfs]

Ошибка вылетала когда записывали информацию в массив или когда читали с массива информацию?

[Олвин]

Да всё, ошибки нет) А вылетала она (казалось - мистика) перед end-ом процедуры, в которой объявлен массив. Ну потом я включил Range Check и она (хотя уже другая) стала вылетать при записи элемента.

[Ghost of Night]

был выход за границы допустимого диапазона

Либо ставьте проверку, либо расширяйте границы.