关于delphi Assigned

关于delphi Assigned

2009-02-24 08:09

1. 根据 Delphi 指令参考手册中 说明： Assigned 函式在参数不为 nil 时传回 True, 表示指针已经指到某个内存地址，这个内存地址可能是一个对象地首地址，也可能在函数或过程中，声明一个指针变量，没有赋值为 nil ，无乱的指向某处，这两个种情况， Assigned （指针变量）都不为 nil , 函数放回 True ； 而参数为 nil 时则传回 False 。 Assigned 并不是一个真正的函数。 技巧： 用呼叫 Assigned 的方式来取代直接把参数拿来和 nil 比较，效率会更好。 2. 这个问题要从内存方面来解释 当你建构一个物件 SomeComponet.Create(Owner); 系统会有一个指针指向这个对象 当你解构一个物件 SomeComponet.Free; 系统会将指针指到的东西杀掉，但是指标还是指在相同的位置 请注意计算机的资源是有限的， 所以可能下一步你的程序要跟系统要资源， 刚才的指针位置，就出现了其它的数据 If Assigned(SomeComponet) then SomeComponet := nil; 先检查这个对象有没有在其它地方被设成 nil ， 然后再将它设成 nil 。 当我们无法预测使用者会如何操爆他的计算机， 程序员必须留意内存的管理。 小弟浅见 ... 3 function Assigned(var P): Boolean; Description Use Assigned to determine whether the pointer or procedure referenced by P is nil. P must be a variable reference of a pointer or procedural type. Assigned(P) corresponds to the test P<> nil for a pointer variable, and @P <> nil for a procedural variable. Assigned returns False if P is nil, True otherwise. 检查指针指向的参考变量或过程是否为 nil 每次我通常的处理方法都是： if assigned(frm) then frm.close;   但是当下次调用时就会出错。为什么呢，直到咋天我才知道原因 frm.close;frm.free; 只是指定这块内存可以重写，并未释放为 NIL 因此当下次调用时即使 frm.free 已经 执行过 assigned(frm) 仍为 TRUE ，再次释放 frm.Close 或者 frm.free 肯定会报错；应为 frm.Close 或 frm.free 是释放 对象指针 frm 指向的内存空间，在上次已经释放调了，但是 frm 本身并没有 初始化为 nil , 相反它还是指向被释放的内存地址；东西已经没有了，没有地东西去释放，不报错错才怪。 正确的处理方法： if assigned(frm) then begin    frm.close;    frm:=nil; end; 或 : if assigned(frm) then begin frm.close; freeandnil(frm); end; // 可以测试一些就能真正理解 FreeAndNil 和 Assigned 函数地使用方法了； procedure FreeAndNil(var Obj); Description Use FreeAndNil to ensure that a variable is nil after you free the object it references. Pass any variable that represents an object as the Obj parameter. var P: Pointer; begin P := nil; if Assigned (P) then Writeln ('You won''t see this'); GetMem(P, 1024); {P valid} FreeMem(P, 1024); {P no longer valid and still not nil} if Assigned (P) then Writeln ('You''ll see this'); end;