Борьба с утечками памяти временных компонентов.

[XE5]

Привет всем. Подскажите пожалуйста. Имеется некий код, в котором Я присваиваю временному контролу участок памяти контрола на форме. Вопрос. Нужно ли уничтожать контрол по окончании работы, или это ни чего не даст?

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  ListBox: TListBox;
begin
  ListBox := (Control as TListbox); // Присвоили временному ListBox участок памяти Listbox1 
  ...
  ListBox := nil;
  ListBox.Free; // Есть ли смысл в таком уничтожении?

[Stilet]

Нужно если он не нужен.
Кстати:

  ListBox.Free;
  ListBox := nil;

Иначе AV

P.S. Не понял зачем в локальной процедуре VCL контрол создавать... Может имелось ввиду TStringList?

[Luuzuk]

 ListBox := nil;
  ListBox.Free; // Есть ли смысл в таком уничтожении?

в таком - нет.

 
  ListBox.Free;
  ListBox := nil;

в таком - есть

[Аватар]

В той процедуре, что вы показали не нужно. За переданный Control отвечает вызывающий код и он должен заниматься удалением. А ListBox := (Control as TListbox); ничего не создает, а просто указатель на контрол помещает в другую переменную

[XE5]

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

P.S. Не понял зачем в локальной процедуре VCL контрол создавать...

А он и не создаётся. Или Вы где-то увидели Create? Это нужно для того, чтоб во всех участках кода внутри процедуры не писать конструкцию.

(Control as TListbox)

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

 
  ListBox.Free;
  ListBox := nil;

в таком - есть

Присваиваем ListBox участок памяти ListBox1 и делаем ListBox.Free. Уничтожается участок памяти визуального ListBox1. Дальше объяснять что произойдёт?

[XE5]

Сообщение от Аватар

В той процедуре, что вы показали не нужно.

Утечки не будет?

[Аватар]

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

Утечки не будет?

100% не будет. Если внешний код позаботится об этом

[Alter]

Будет

Project Project1.exe raised exception class EInvalidOperation with message 'Control '' has no parent window'.

Лучше так, чтобы ошибочные мысли не возникали

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
//  with TListBox(Control) do
  with (Control as TListbox) do
  begin
    Caption := 'Index: ' + IntToStr(Index); // чтобы видеть, что есть реакция. <- тут ваш код
  end;
end;

[XE5]

Сообщение от Аватар

Если внешний код позаботится об этом

Поподробнее пожалуйста, что нужно делать во внешнем коде?

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

Лучше так, чтобы ошибочные мысли не возникали

Толковая мысль. Благодарю.

P.S. Alter подсказал правильно решение, вопрос закрыт.

[Аватар]

Alter

О чем речь вообще? А, не использовать переменную. В принципе это тоже самое