菜问题,希望给个回答 这是什么用法?TStateMessage = procedure(Const Msg: String) of object; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 相当于对成员函数的引用,成员函数在implementation实现 这是一种函数指针类型,该指针可以指向所有函数外形(既参数表)与其类似的函数比如你定义了这样两个函数:procedure MyProc(Const MyMsg: String);begin ....end;procedure TheProc(Const TheMsg:String);beginend;有定义了TStateMessage = procedure(Const Msg: String) of object;var sm :TStateMessage;....那么,在程序中你就可以:sm := MyProc;或sm := TheProc;然后,你就可以在程序中调用sm,sm('Hello');与MyProc('Hello')功能一样。sm('Hello');与TheProc('Hello')功能一样。 sleep 延时 假死 问题! 我怎么错了 问一个关于卸载OCX再安装这个OCX控件的简单问题,马上给分! insert 后报错 如何从access数据库导到excel表格,delphi如何来实现~ 大家看看我这条SQL语句有什么问题? 小弟通过bmp位图做了一个圆角矩形的form,但无法通过鼠标的拖动来控制form的大小,请问各位大侠如何解决? delphi 7 编译的exe文件不能在其他机器上运行? 谁能告诉我delphi中的打开和保存对话框中的 option 属性的详细情况 24位色的位图如何转换成黑白位图? 圣诞有奖竞答!百分大家等你 拿! 50分。圣诞答题!
所有函数外形(既参数表)与其类似的函数比如你定义了这样两个函数:
procedure MyProc(Const MyMsg: String);
begin
....
end;procedure TheProc(Const TheMsg:String);
beginend;有定义了
TStateMessage = procedure(Const Msg: String) of object;
var sm :TStateMessage;
....
那么,在程序中你就可以:
sm := MyProc;
或
sm := TheProc;
然后,你就可以在程序中调用sm,
sm('Hello');与MyProc('Hello')功能一样。sm('Hello');与TheProc('Hello')功能一样。