>>66
function Hoge( x,y:Integer ; func:TFunction) : boolean ;
begin
　・・・なんか判定があって・・・
　if Result
　and Assigned(func) then func(引数があれば);
end;

って事？ なんだか、構造化されてない設計だね


こういう場合、条件を判定する汎用的関数 ではなく、汎用的クラスを作った方が色々と簡易になると思うけど？