如何判断一个指针为有效指针

[LiangShengHong]

例如
var
A:TLabel;
begin
A:=Label1;
Label1.Free;
//此时 A 仍然指向 Label 的地址
//碰到这种情况如何判断A指向一个可以访问的地址
if(Assigned(A))
self.Caption:='A is not null';
end;

[耙子]

你这么判断没用的，判断的结果存在随机性。

[LiangShengHong]

各位老兄，现在的问题就是要解决这个问题，有一个空件包中存在该类型的Bug 我需要修改，现在怎样解决问题，不是让你们提无关紧要的意见的。

[u2m]

用FreeAndNil()释放

[ball_cao]

如已知指针的类名,可以用下面办法判断
不知道 if A is TLabel then //有效

try
stemp:=A.Caption;
except
//无效指针
end;

[Nizvoo]

不如Free把它赋给nil呵呵。
var
lblNew: TLabel;

lblNew := TLabel.Create(Self);
lblNew.Parent := Self;
lblNew.Caption := 'Haha;
----------------------------------------------
lblNew.Free;
lblNew := nil;
----------------------------------------------
if Assigned(lblNew) then
MessageBox(Handle, '有效的值', '提示', 0);

[PingPingPangPang]

你这里等于人为制造了一个野指针，使用这个指针非常危险，而且也没什么办法，指针使用的原则是永远让它指向一个有效的数据地址。