Текущий архив: 2007.06.03;
Скачать: CL | DM;
Вниз
Free_And_Nil Найти похожие ветки
← →
AndreyRus (2006-10-14 18:38) [0]А почему, так странно устроена функция Free_And_Nil?
procedure Free_And_Nil( var Obj );
var Obj1: PObj;
begin
Obj1 := PObj( Obj );
Pointer( Obj ) := nil;
Obj1.Free;
end;
Почему нельзя проще?procedure Free_And_Nil( var Obj );
begin
PObj(Obj).Free;
PObj(Obj):= nil;
end;
← →
Vladimir Kladov (2006-10-14 18:43) [1]:)
← →
D[u]fa © (2006-10-14 20:31) [2]На тот случай, если до того как произойдет Free к Obj обратяца, скажем из др. потока, приложение не рухнуло
Страницы: 1 вся ветка
Текущий архив: 2007.06.03;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.045 c
