[РЕШЕНО] Освободжение памяти?

[Sash0k]

Здравствуйте!
Пытаюсь вновь писать на паскале, но после дотнета в голове каша

Вопрос:

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);
var
  cb : TComboBox;
  i : byte;         
begin
  cb:= FindComponent('CB'+ IntToStr(i)) as TComboBox;
  cb.ItemIndex:= StrToInt(SettingsList[i-1]);

  // работа...

  cb := nil;
  cb.Free;
end;


Нужно ли выполнять
cb := nil;
cb.Free;
в конце метода, или объект будет выгружен автоматически?

[Vadim]

Нужно ли выполнять
cb := nil;
cb.Free;
в конце метода, или объект будет выгружен автоматически?

Только в обратном порядке. И только в том случае, если Вы хотите непременно загубить тот компонент, ссылку на который берёте с помощью FindComponent(). Вот если бы Вы создавали этот компонент заново (cb:=TComboBox.Create()), тогда делать cb.Free нужно в обязательном порядке, а то в программе будет болтаться выделенный, но недоступный кусок памяти.

[Sash0k]

Губить его ненужно разумеется.
Первой командой cb := nil; как раз убираю ссылку на реальный объект. А при помощи Free уже хочу чистить память.

То есть переменные типа T<SomeObject> можно рассматривать как и простейшие, типа integer, string. Так как моя cb : TComboBox; объявлена локально в процедуре, то по завершению процедуры память будет освобождена автоматически.
Верно?

[Mr.Smart]

Вы для cb память не выделяете! Вы в неё помешаете ссылку на существующий объект т.ч. в данном случае обнулять и освобождать ничего не нужно.

[Sash0k]

Всё, спасибо. Тема закрыта
// Только тогда кажется странным, что вызов cb.Free не дает никаких исключений. Неоднозначное поведение...

[Brainenjii]

Free как раз и проверяет - не nil ли Вы пытаетесь освободить (objpas.inc):

Код: Выделить всё

      procedure TObject.Free;
        begin
           // the call via self avoids a warning
           if self<>nil then
             self.destroy;
        end;


Немножко не в тему - я, например, всегда вызываю Destroy вместо Free, хотя недавно прочёл, дескать, в Delphi предпочтительней использовать Free, да и вообще, все деструкторы надо перекрывать Override'ом 0.о Так ли это, или информация неактуальна?

[vada]

Вполне себе однозначное.
Как уже писали что если бы вы создали объект cb:=TComboBox.Create(), а потом cb:=nil; cb.Free; то объект не грохнется а останется в памяти.
У вас же немного другая ситуация кторую можно описать для наглядности примерно так:
combobox:=TComboBox.Create();
cb := combobox;
....
cb:=nil; {при этом combobox<>nil вот тут и отличие от C#}
и дальше совершенно бесполезный оператор
cb.Free; {ибо cb уже равен nil и никуда не ссылается}
объект combobox останется живой и невредимый и доступ к нему останется.

[Mr.Smart]

Можно вызывать Destroy на прямую, но вы сами сказали, что Free делает.
Насчёт override. Суть в том что необходимо освободить память во всех предках.

[hinst]

Brainenjii, documentation tells us always use .free

[Brainenjii]

Никогда не пользую Free для своих объектов, с моими деструкторами Вообще, слабо в голове укладывается ситуация, когда пытаются освободить nil Это же явная ошибка, и хорошо, если она всплывёт при первом же запуске