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

[Gypsy]

Здравствуйте!
Разъясните, пожайлуста!
Использую некую запись и класс и указатели на них.
Вида:

type trecord = record
   a: integer;
   b: integer;
end;

type tarecord = array of trecord;

type ptarecord = ^tarecord;
type ptclass1 = ^tclass1;

var parecord: ptarecord;
pclass1: ptclass1;
....

когда использую, пишу:
new(parecord);
new(paclass1);
...
...
при окончании работы освобождаю память:
dispose(parecord); // <- здесь выдает ошибку
dispose(pclass1); // <- и здесь тоже выдает ошибку

Если пишу так:
parecord:=nil;
pclass1:=ni;
то без ошибок, но высвобождаю ли я память?

Заранее спасибо!

[Kotofff]

Попробуй как надо :

if parecord <> nil then Release(parecord);

И т.д.
If тут просто для подстраховки, вдруг указатель не был создан по какой-то причине ...
А вообще присваивание NIL указателю - это и есть высвобождение памяти.

[Gypsy]

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

Попробуй как надо :

if parecord <> nil then Release(parecord);

И т.д.
If тут просто для подстраховки, вдруг указатель не был создан по какой-то причине ...
А вообще присваивание NIL указателю - это и есть высвобождение памяти.

Спасибо, но если NIL - это и есть ыысвобождение памяти, чем не подходит запись вида:
if parecord <> nil then parecord:=nil;
или просто parecord:=nil;

[Kotofff]

Да я ж не спорю - делай так.
Способов то море ...

[maxionans]

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

type tarecord = array of trecord;

type ptarecord = ^tarecord;
type ptclass1 = ^tclass1;

У тебя тип tarecord является динамическим массивом, а динамические массивы уже сами по себе и есть указатели. И когда ты используешь ptarecord, то, получается, работаешь с указателем на указатель, что, в данном случае, довольно бессмысленно. Для инициализации переменной типа tarecord достаточно использовать Initialize и/или SetLength, для финализации - Finalize, без New и Dispose. Присваивание переменным nil в твоем случае не освобождает памяти, т.к. указатели в делфи не являются умными указателями (кроме интерфейсов, но это не твой случай), происходит просто обнуление ссылки. Все вышесказанное в полной мере справедливо и для классов - экземпляры классов в делфи тоже являются указателями и для работы с ними не следует использовать New и Dispose, вместо этого используются конструкторы и деструкторы. Если еще не знаешь, как создаются и уничтожаются экземпляры классов, то делается это так:

var
  SomeClass : TSomeClass;
begin
  { Создаем экземпляр класса }
  SomeClass := TSomeClass.Create;
  { ...
    Здесь как-то работаем с созданным экземпляром
    ... }
  { Уничтожаем экземпляр }
  SomeClass.Free;
end;

Для уничтожения экземпляра класса так же хорошо использовать процедуру FreeAndNil - она уничтожает экземпляр и обнуляет переменную.