Скачать: CL | DM;

Уничтожение вложенных объектов   Найти похожие ветки 

← →
TUser ©   (2005-11-03 11:30) [0]

Почему неправильно их унижтожать, как в посте [4] этой ветки? И как правильнее?
http://delphimaster.net/view/1-1131005206/

Там это был бы оффтоп.

---

← →
jack128 ©   (2005-11-03 11:35) [1]

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

PS методом Free не пользуюсь. Только FreeAndNil.

---

← →
Sergey_Masloff   (2005-11-03 11:37) [2]

jack128 ©   (03.11.05 11:35) [1]
>то мы получим битую ссылку.
В твоем методе - утечку памяти. Так ведь?

---

← →
umbra ©   (2005-11-03 11:40) [3]

мне кажется, что ничего о недопустимости конструкции типа


destructor TSomeObj.Destroy;
begin
FSubObj.Free;
inherited;
end;


речь не шла. речь была о недопустимости исключений в деструкторе.

---

← →
umbra ©   (2005-11-03 11:45) [4]

Единственное отличие FSubObj.Free от FreeAndNil(FSubObj) в том, что после Free функция Assigned(FSubObj) вернет true, а после FreeAndNil(FSubObj) - false.

---

← →
jack128 ©   (2005-11-03 11:46) [5]

Sergey_Masloff   (03.11.05 11:37) [2]
В твоем методе - утечку памяти. Так ведь?

Да, если в в деструкторе FSubObj возникнет исключение. Собственно гарантию коректного выполнения даст только использование такой функции

procedure FreeAndNilEx(var Obj: TObject);
begin
 FObj.Free;
 FObj := nil;
end;

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

---

← →
Sergey_Masloff   (2005-11-03 11:54) [6]

jack128 ©   (03.11.05 11:46) [5]

разве что

procedure FreeAndNilEx(var Obj: TObject);
begin
 try
   try
     FObj.Free;
   finally
     FObj := nil;
   end;
 except
   WriteToLog("...oops");
 end;
end;


так что действительно лучше
>проще писать такие классы, которые

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c