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

← →
Aquamarin (2003-10-01 12:36) [0]

Я создаю в цикле указатели, указываю на нужную информацию и добавляю их в tlist. После отработки этой информации я делаю
tlist.clear и tlist.free
Достаточно ли этого для того, чтобы Delphi освободила память от той информации, на которую указывали указатели, или tlist очищается только от этих указателей, а память от них не очищается?
Примерно так
var
pnt: ^integer;
nlist: tlist;

...
for i := 1 to N do
begin
new(pnt);
pnt^ := random;
nlist.add(pnt);
...
end;
...
nlist.clear;
nlist.free;

← →
KSergey © (2003-10-01 12:38) [1]

Предварительно обязательно необходимо в цикле же сделать Dispose для каждого полученного указателя

← →
Palladin © (2003-10-01 12:42) [2]

Tip:

integer в связи с тем что он имеет тот же размер что и pointer
можно заносить и без использования указателей и выделения памяти при помощи приведения типов
var
pnt: integer;
nlist: tlist;

...
for i := 1 to N do
begin
pnt := random;
nlist.add(pointer(pnt));
...
end;
...
nlist.clear;
nlist.free;

← →
KSergey © (2003-10-01 12:46) [3]

Люди, в отличии от меня, как всегда в задачу вдумались ;)

Освобождение памяти после отработки указателей Найти похожие ветки