type
mypro = procedure (k: boolean) of object;
....
tmyclass = class
fpro: mypro;
...
procedure setpro(pro: mypro);
...
end;
procedure tmyclass.setpro(pro: mypro);
begin
//怎样判断pro的值是有效的呢??然后再赋值
fpro := pro;
end;
if pro<>nil then
fpro := pro;
或者
if Assigned(pro) then
fpro := pro;
同意楼上,帮顶!
//怎样判断pro的值是有效的呢??然后再赋值
不懂楼主的意思;这个值应该是根据条件自动生成或人为输入的,
其有效性应该是这时已经判断过了的,
为什么还要判断呢?