【结】Stack overflow**

atiger · 发表于 2008-5-22 16:08:20

参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=5946

8楼

crystal · 发表于 2008-5-22 16:58:59

procedure TCKDJ.BitBtn4Click(Sender: TObject);
var
P: procedure;
begin
P:= MyProcedure;

end;

不是这样调用的？

crystal · 发表于 2008-5-22 17:01:14

MyProcedure(self);

crystal · 发表于 2008-5-22 17:02:57

还是一样报同样的错误。

atiger · 发表于 2008-5-22 17:10:57

把这个过程拆开拆成两个，例如
1、在private
定义 procedure MyProcedure;
2、把部分的判断写到 procedure XXX.MyProcedure中
3、在procedure XXX.XXXXX(Sender: TObject); 中，调用MyProcedure就可以了

让覃工帮忙看看

crystal · 发表于 2008-5-22 17:19:37

回 25 楼，我再试下把代码拆成三份，可能是我调用的比较多吧 46个

crystal · 发表于 2008-5-22 17:35:21

OK。搞定。。我拆分了。三份。。谢了。。

atiger · 发表于 2008-5-22 17:56:27

不客气，结

		自动登录	找回密码
密码			立即注册