关于freeAndNil

2005-08-22 09:16:00 243 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

做形态学方法的团队_“设计形态学”与“第三自然” 文/邱松(清华大学美术学院)摘要：“设计形态学”是基于“形态学”研究的设计基础学科。“形态”既是该学科研究的主体，又是与其它学科相连接的“纽带”。实际上，不管是供养我们的地球家园，还是神秘莫测的浩瀚宇宙，均由数量纷繁、千姿百态的“形态”构筑而成。形态通常被分成两大类：一类是源于“第一自然”的“自然形态”；另一类是来自“第二自然”的“人造形态”。而这两类形态正是“设计形态学”研究的两条... 阅读详情

下边是freeAndNil的函数原型：
procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;
---------------------------------------
请问：为什么要用Temp呢？
我觉得用下边的形式也可以啊,如下：
procedure _FreeAndNil(var Obj);
begin
TObject(Obj).free;
Pointer(Obj) := nil;
end;

...全文

C# 操作Excel的时候，出现"被呼叫方拒绝接受呼叫的异常"的解决方案（参考官方给出的解决方案）首先官方有对这个错误给出解释和解决方案，连接如下： https://docs.microsoft.com/zh-cn/previous-versions/ms228772(v=vs.120)#%E5%8F%AF%E9%9D%A0%E7%BC%96%E7%A8%8B 简单来说，貌似是线程问题，我猜。。。之前我尝试着在代码中添加 Thread.Sleep(1000); 来进行解决，这种办... 阅读详情

idcsdn

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

Eastunfail 2005-08-28

打赏
举报

参考TObject.Free中对Self进行是否是NIL的判断以及这里先设为NIL分析，应该是防止多线程同时释放同一个对象

hexenzhou 2005-08-28

打赏
举报

有意思，看来这里还是有技巧的！现在感觉大头鸟说得有理！

idcsdn 2005-08-24

打赏
举报

to hqhhh(枫叶) ：好像不是啊，我试验过了，有值。

idcsdn 2005-08-23

打赏
举报

的确，有道理。但是除了对把一个已经free掉的obj再次free的时候会失败，我想不出会有其他原因会失败啊，同时freeAndnil也是不能解决这个问题啊。赐教。

hqhhh 2005-08-23

打赏
举报

procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
//如果不用Temp，取出的obj应该是nil
//Pointer(obj)中的obj应该是nil
Pointer(Obj) := nil;
Temp.Free;
end;

sdzeng 2005-08-23

打赏
举报

在free的时候出问题的情况还是很多的
比如：
procedure TForm1.FormDestroy(Sender: TObject);
begin
Memo1.Lines.SaveToFile('c:\aaa\s.txt');
end;
如果c:\aaa不存在，或者s.txt被另一个程序独占打开,
会导致TForm1.Free的时候出错

能否Free成功，是析构函数的责任，
freeandnil的责任就是两件事情：“free”和“nil”
如果一件事情不成功，它起码保证了另一件事能成功

函数、过程最早的出发点就是为了实现代码重用，
用别人写好的，总比自己写省点事不是？

只有在现成的东西达不到实际要求时，才自己写，
最好别做没有任何意义的重复劳动

sdzeng 2005-08-22

打赏
举报

我的理解是，这么写为了确保能够将Obj置为nil

procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;//先置Obj为nil
Temp.Free;//不管Free是否成功，Obj都为nil
end;

如果用楼主的代码
procedure _FreeAndNil(var Obj);
begin
TObject(Obj).free;
Pointer(Obj) := nil;//如果Free不成功,是不会执行这一句的
end;

sdzeng 2005-08-22

打赏
举报

关于freeAndNil

相关推荐