Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

FreeAndNil   Найти похожие ветки 

 
DelphiLexx ©   (2007-02-09 13:05) [0]


var
procedure MyFreeAndNil(var Obj);
begin
Obj.Free;
Obj := Nil
end;

Почему FreeAndNil(obj) и MyFreeAndNil(obj) имеют разный результат выполнения. Объясните пожалуйста.


 
TRUNK ©   (2007-02-09 13:12) [1]

Что значит разный результат выполнения. Объясните пожалуйста.


 
Правильный Вася   (2007-02-09 13:17) [2]

а оно компилируется ваще?
че за var procedure


 
DelphiLexx ©   (2007-02-09 13:30) [3]


> Что значит разный результат выполнения. Объясните пожалуйста.

Почему я спрашиваю данный вопрос. В своей проге я использую DBGridEh. В одной из колонок при клике по ячейке появляется раскрывающийся список(LookUp поля). Так вот если я начну закрывать форму с этим гридом при раскрытом списке, то выскакивает ошибка. После трудоемкой трассировки выяснил место ошибки:
Пример из DBGridEh:
destructor TCustomDBGridEh.Destroy;
begin
 FIntMemTable := nil;
 if FStyle <> nil then
   FStyle.RemoveChangeNotification(Self);
 FColCellParamsEh.Free;
 Selection.Clear;
 FColumns.Free; FColumns := nil;
 ...

Делаю так, ошибка исчезает
destructor TCustomDBGridEh.Destroy;
begin
 FIntMemTable := nil;
 if FStyle <> nil then
   FStyle.RemoveChangeNotification(Self);
 FColCellParamsEh.Free;
 Selection.Clear;
 FreeAndNil(FColumns)
 ...

Почему так происходит?


 
clickmaker ©   (2007-02-09 13:43) [4]

во FreeAndNil поинтер обнуляется перед фактическим уничтожением объекта, путем создание временной ссылки. Это пресекает любые попытки обратиться к объекту, который находится в процессе убиения (ежели конечно делаются проверки if Obj <> nil)



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

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.032 c
3-1168326170
Megabyte
2007-01-09 10:02
2007.04.01
Использование Gemini driver для связи через ADO


2-1173464112
А.Брей
2007-03-09 21:15
2007.04.01
Смена шрифта на TPanel


15-1172807412
Slider007
2007-03-02 06:50
2007.04.01
С днем рождения ! 2 марта


2-1173118457
pasha star
2007-03-05 21:14
2007.04.01
list.txt to .rc


2-1173509412
Арт
2007-03-10 09:50
2007.04.01
Аналог контрола mbsplit.ocx в vb