Объекты в процедурах

[Altera]

Привет всем!
Наверное мне должно быть стыдно за то, что я не знаю таких элементарных вещей.

procedure testProc;
var
b: tBitmap;
begin
   b := tBitmap.create;
   {здесь операции с b}
   b.free; // Это здесь обезательно?

Ведь локальные переменные уничтожаются после выполнения процедуры?
Или уничтожается только ссылка b, а сама картинка остаётся?

[s.Creator]

уничтожается только ссылка поэтому лучше писать

procedure testProc;
var
b: tBitmap;
begin
  b := tBitmap.create;
  try
    {здесь операции с b}
  finally
    b.free;
  end;

[Stilet]

Или уничтожается только ссылка b, а сама картинка остаётся?

Вполне возможно. Для надежности лучше самому все уничтожать, хотя Делфи все равно потом при закрытии проги все обьекты уничтожает, но с локальными тут непонятки.

[s.Creator]

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

Вполне возможно. Для надежности лучше самому все уничтожать, хотя Делфи все равно потом при закрытии проги все обьекты уничтожает, но с локальными тут непонятки.

У Delphi "непоняток" нет - объект не уничтожается вместе с локальной переменной которая является только ссылкой на него.
И полагаться на уничтожение при закрытии не стоит - Если локальная переменная в методе (функции) которая используется в циклах и т.д., сколько будет висячих объектов до закрытия программы ?

Если конечно разговор не идет о .NET где есть сборщик мусора и объект уничтожается после уничтожения всех ссылок на него ( но не сразу, а когда запустится этот сборщик ).

[Gorychev]

ИМХО, наиболее правильная последовательность действий при уничтожении обьекта:

d.free;
d.nil;

после уничтожения обьекта переменная d продолжает ссылаться на местов памяти где обьекта уже нет. Если пременную предпологается повторно использовать, то лучше ей присвоить значение nil, чтобы программа могла проверить, существует обьект или нет.

Как вариант можно воспользоваться функцией FreeAndNil(d) - результат тот же.

[mihali4]

На всякий случай напомню:

Free method (TObject)
Destroys an object and frees its associated memory, if necessary.

Особенно следует обратить внимание на то, что

For objects that are not components, or for components created with a nil owner, be sure to call Free after you are finished with them; otherwise the allocated memory will not be usable until after the application terminates.

Между прочим, ни одного слова про NIL...

[DeKot]

Простыми словами, когда Вы вызываете конструктор (create) для объекта (в том числе и для локальной переменной- это тоже объект), то Вы занимаете какую то память, где хранятся параметры этой лок. переменной.Далее при использовании ее в проге параметры передаются в какой то другой обьект.К примеру в приведенном выше примере в buffer
скачали картинку с файла , в нужный момент перевели картинку с буфера на форму .Если больше буфер не нужен - уничтожили его (Free).
Тем самым освободили память.При следующем вызове метода , где используется лок.переменная все повторится - create -> обработка -> free.

[s.Creator]

Немного поправлю:

Gorychev

d.free;
d := nil;

DeKot

Простыми словами цитаты Михалыча можно перевести так:

Все переменные (поля классов) объявленные как

var b: Tobject; // или его наследники

В действительности являются ссылками на объекты (хотя их ненадо разыменовывать при использовании).
Строка

p := TPanel.Create(nil);

Создает объект (т.е. выделяет для него память) и заносит в переменныю ссылку (адрес) на эту память.

Поэтому при выходе из функции (метода, процедуры) уничтожается переменная-ссылка, а выделенная память остается если к объекту не применен метод Free.
Поэтому рекомендуют использовать try ... finally для предотвращения утечки памяти

Но

у TComponent и его наследников есть механизм взаимодействия с владельцем (Owner) который позволяет сообщить владельцу при уничтожении компонента, что он им уже не владеет.
А при уничтожении владельца позволяет владельцу уничтожить всех "подчиненных" (только не путайте с Parent)

Поэтому

var Schet: Integer = 1;
procedure TForm1.Button1Click(Sender: TObject);
var p: TPanel;
begin
  p := TPanel.Create(Self); // Create(Form1)
  p.Parent := Self;
  p.Left := Random(500);
  p.Caption := 'Yes ' + IntToStr(Schet);
  Inc(Schet);
end;

при каждом нажатии на кнопку будут создаваться панели.
при выходе из метода переменная p будет уничтожаться,
но сами панели уничтожатся при уничтожении формы.

[mihali4]

For objects that are not components, or for components created with a nil owner, be sure to call Free after you are finished with them; otherwise the allocated memory will not be usable until after the application terminates.

Не соглашусь с переводом, тем более, что и смысл оказался несколько искажен.
Если почти дословно, то:

Не забывайте вызывать метод Free после окончания использования объектов, не являющихся компонентами, или компонентов, созданных с Owner=nil; в противном случае выделенная для них память будет высвобождена только после завершения приложения.

[Altera]

Воооо понравился вам тема.... ))))

Я ещё часто встречал такие вещи:

procedure tMain_form.main_formOnClose(sender: tObjet);
begin
   freeLibrary(dllHandle);
   bitmap.free;
   ...
end;

А они разве не уничтожится после закрытия программы?