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

[Des80]

допустим у меня есть класс, в котором есть поле типа L:TList. В констукторе этого класса я создаю его L:=TList.Create;
вопрос: нужно ли освобождать память в деструкторе L.free или это происходит автоматически?

[evg_m]

или это происходит автоматически?

НЕТ

нужно ли освобождать память в деструкторе L.free

ДА

[netpolice]

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

допустим у меня есть класс, в котором есть поле типа L:TList. В констукторе этого класса я создаю его L:=TList.Create;
вопрос: нужно ли освобождать память в деструкторе L.free или это происходит автоматически?

Лучше всего освобождать... Иначе могут появляться непонятные ситуации с распределением памяти... Да и грамотность свою покажите.

[Alex11223]

Что в них непонятного? Просто не освободится память.

[Аватар]

Лучше всего освобождать

Не лучше, а обязательно

[Des80]

ок, тогда еще один вопрос. Например у меня есть список TList, я хочу добавить в этот список указатели на рекорды
TMyrecord=record
x:integer;
y:integer;
end;

PMyRecord=^TMyRecord;

я делаю это следующим образом




procedure Myproc;
var
P:PMyRecord;
L:TList;
begin
L:=TList.Create;
New(P);
P.x:=5;
P.y:=10;
L.add(P);
end;


При удалении списка L достаточно ли мне просто сделать L.clear или
надо пробежаться по всем записям и сделать dispose?

for i:= 0 to List.count-1 do
Dispose(PMyRecord(L[i]));

[Аватар]

пробежаться по всем записям. List на автомате не освобождает

[Pavia]

Запомните кто намусорил, тот и убирает.
А ещё лучше, где намусорил там и убираешь.

Так что Dispose вам надо делать.

[Vapaamies]

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

ок, тогда еще один вопрос. Например у меня есть список TList, я хочу добавить в этот список указатели на рекорды

Если по логике список является владеющим, правильней всего будет унаследоваться от TList и перекрыть у него защищенный метод Notify:

type
  TMyRecordList = class(TList)
  protected
    procedure Notify(Ptr: Pointer; Action: TListNotification); override;
  end;

procedure TMyRecordList.Notify(Ptr: Pointer; Action: TListNotification);
begin
  if Action = lnDeleted then
    Dispose(PMyRecord(Ptr));
end;

[Аватар]

А TObjectList может и сам освобождать