Out of system resources

[dimavit]

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

procedure delElem( var A:TRectArray; Index:integer );   
var Last : integer;   
begin  
   Last:= high( A );   
   if Index <  Last then move( A[Index+1], A[ Index ],   
       (Last-Index) * sizeof( A[Index] )  );   
   setLength( A, Last );   
end;

Не может ли возникнуть ситуация, при которой в данном случае объект не полностью освобождает память? Дело в том, что при определенном количестве шагов цикла возникает ошибка "Out of system resources". При этом в массиве имеется всего от 5 до 20 объектов. А в ходе всей работы их было создано и удалено тысяч 15. Объекты представляют собой созданный класс

[Kix.IV]

Нужен код полностью.

[volvo877]

dimavit, а если я передам Index больше, чем размер массива, почему массив все-таки уменьшается? Этого не должно быть.

[eoln]

По поводу удаления: setLength( A, Last ) лишь устанавливает размер массива, в итоге удаляется только указатель на объект, а не сам объект. Перед сдвигом надо вызвать деструктор для удаляемого A.

[dimavit]

Сообщение от Kix.IV

Нужен код полностью.

Сейчас под рукой нет. Но вопрос состоит в том, нужно ли удалять объект дополнительно для освобождения памяти, или достаточно того, что он будет удален из массива?

[dimavit]

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

По поводу удаления: setLength( A, Last ) лишь устанавливает размер массива, в итоге удаляется только указатель на объект, а не сам объект. Перед сдвигом надо вызвать деструктор для удаляемого A.

Спасибо, Вы успели ответить на вопрос раньше, чем я его сформулировал.

[eoln]

Небольшая поправка. Деструктор для A[Index], который находится в A