Очистка динамического массива

[JohnnySuperb]

Доброго времени суток, форумчане.
У меня возник вопрос. Работаю с переменной типа записи

test :TTestInfo;

который в свою очередь состоит из строк и чисел и еще массива записей TQuests, в котором также находится массив записей TAnswers.

  TAnswers = record
    id : integer; // ид ответа на сервере
    text : string; // сам вариант ответа
  end;
  TQuests = record
    id : integer; //ид вопроса
    quest : string; // сам вопрос
    answer : array of TAnswers; // ответы
  end;
  TTestInfo = record
    count:integer; // количество вопросов в тесте
    quests : array of TQuests;// вопросы
  end;

При создании массива ни каких проблем не возникает. Как и при расширении массива.
Использую

  inc(test.count);
  SetLength(test.quests, test.count);

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

  test.count:=0;
  SetLength(test.quests, test.count);

Теперь меня точно интересует - после обнуления массива TQuests таким образом будут ли данные удалены, а память, которую удаленная часть массива занимала освобождена? Или данный кусок памяти так и будет висеть в системе и не будет доступен ни кому?
Хотел посмотреть логику работы Delphi и проверить что делает программа, но в модуле System идет переход на ассемблер, что очень затрудняет дальнейшее изучение этого вопроса.
Знаю, что если используется массив объектов, которые создаются и уничтожаются, то необходимо каждый объект заранее уничтожить, а только потом уже удалять массив. А как обстоят дела с массивом из таких данных?

[Kotofff]

test.count:=0;
SetLength(test.quests, test.count);

Обнулит массив, но не высвободит память.
Попробуй FreeMem

[Stilet]

так и будет висеть в системе и не будет доступен ни кому?

Никогда не интересовался этим в таких подробностях, но ИМХО именно это утверждение ближе всего к истине.

[Serge_Bliznykov]

согласен с вышесказанным.
Память, которую занимал в Вашем Test (типа TTestInfo ) quests: array of TQuests
будет освобождена, но вот память, которую занимал массив
answer : array of TAnswers - скорее всего "повиснет в воздухе"

1) А кто Вам мешает пройти в цикле и обнулить сначала массив answer
а потом уже массив quests ?
примерно так:

  for i:=Low(test.quests) to High(test.quests) do
     SetLength(test.quests[i].answer, 0);
  SetLength(test.quests, 0);
  test.Count := 0;

2) думаю, что под профайлерами можно посмотреть, особождается ли память. (не исключаю возможности, что дельфийский менеджер памяти достаточно умён, чтобы собрать потерянное...

[Баламут]

А вот просто ради интереса

  t: array of byte;
  .....
  SetLength(t, 10);
  if t <> nil then ShowMessage('Ага!');
  SetLength(t, 0);
  if t = nil then ShowMessage('Упс...');

Думаю это что-то значит...

[Serge_Bliznykov]

Баламут, а это Вы зачем привели пример?
Речь идёт не об очистке самого динамического массива, а об очистке вложенных структур: если в этом массиве элеметы - тоже динамические массивы.
Вот что тогда с памятью, которую они занимали будет?..

вот, на вашем примере:

procedure TForm1.Button1Click(Sender: TObject);
var  t: array of array of integer;
begin
  SetLength(t, 2);
  SetLength(t[0], 2); {первый массив Integer на два элемента}
  SetLength(t[1], 4); {второй массив Integer на 4-ре элемента}

  t[0][0] := 100;
  t[0][1] := -1;

  t[1][0] := 1000;
  t[1][1] := 2000;
  t[1][2] := 3000;
  t[1][3] := 4000;

  if t <> nil then ShowMessage('Ага!');
  SetLength(t, 0);
  if t = nil then ShowMessage('Упс...');

end;

вопрос, память, выделенная SetLength(t[0], 2); и SetLength(t[1], 4); будет освобождена или нет?!
я думаю, что нет, не будет!

[Utkin]

Согласен с постом #4 - циклом по индексам пробегаетесь и все счастливы. Не сложно, всегда так делаю. Только дробите на процедурки - очистка одного элемента, очистка столбца, очистка массива и никаких проблем.

[Stilet]

Тогда уж лучше вместо record перейти на class. Красивее будет.

[Баламут]

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

Баламут, а это Вы зачем привели

Ага, проморгал! В этом случае действительно даже не обнулится.

type
  testArray = array of array of integer;
  TestArray1 = array of integer;
..........
var
  t: TestArray;
  P: Pointer;
begin
  P := nil;
  SetLength(t, 2);
  SetLength(t[0], 2); {первый массив Integer на два элемента}
  SetLength(t[1], 4); {второй массив Integer на 4-ре элемента}

  P:= t[1];

  t[0][0] := 100;
  t[0][1] := -1;

  t[1][0] := 1000;
  t[1][1] := 2000;
  t[1][2] := 3000;
  t[1][3] := 4000;

  if p <> nil then ShowMessage('Ага!');
  SetLength(t, 0);
  ShowMessage(IntToStr(TestArray1(p)[1]));
end;

[Serge_Bliznykov]

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