如何判断变量的合法性
var
edt:TEdit;
begin
edt:=Edit1;//Edit1;已经存在
.
.
.
Edit1.Free; //or edt.Free;
.
.
.
if IsValid(edt) then
edt.Text:='Is a Valid object'
else
begin
edt:=TEdit.Create(self);
edt.Text:='It is a new object');
end;
end;
问题的核心就是function IsValid(var objvar):boolean,请问这个函数如何写?
怎样判断一个对象类型的变量(指针)是否仍然是指向一个合法的对象(仍可利用)?