函数过程作为参数传递 本帖最后由 flitooo 于 2010-05-19 13:58:53 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用函数指针:type TxxProc = procedure;procedure Run(Proc: TxxProc);begin Proc;end;begin Run(A);end; unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TA = procedure; TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure DoA(Foo:TA); public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure A(); begin ShowMessage('ok');end;procedure TForm1.Button1Click(Sender: TObject);begin DoA(A);end;procedure TForm1.DoA(Foo: TA);begin Foo;end;end. 关于分布式应用 Python for Delphi 主从表的问题 TWebbrowser怎样使用Frame中的内容? 使用 dbExpress 控件,如何得到真正的错误信息 Locate方法怎么实现多个条件下的查询 求教:在程序中调用存储过程中创建数据库任务的过程,程序中提示参数类型不匹配 分不够,另开帖送分 50分寻求ORACLE8 For WINNT/9X的下载地址(绝不食言) 一个简单的问题,求教 socket 问题? 那些过去的日子,再也回不去了。。。
TxxProc = procedure;procedure Run(Proc: TxxProc);
begin
Proc;
end;begin
Run(A);
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TA = procedure;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure DoA(Foo:TA);
public
{ Public declarations }
end;
var
Form1: TForm1;implementation{$R *.dfm}procedure A();
begin
ShowMessage('ok');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DoA(A);
end;procedure TForm1.DoA(Foo: TA);
begin
Foo;
end;end.