解决方案 »
- vc头文件转pas
- delphi7能把一个单独的文件集成到生成的EXE文件里吗?
- quick report中有没有像DBGrid一样的控件啊?
- 500分相送,BCD码如何转换为ASCII码???
- 又一個小問題﹐請各大蝦指點
- 如何将窗口的还原按钮灰掉
- ★★★delphi中的sql语句执行问题
- 我这句话怎么了?icehill~~~~~~~~~~
- 在 ACCESS 数据库中保存 JPEG 图片????????
- TO: 微软专家在哪里?请帮我看一下这个问题... ... http://www.csdn.net/expert/topicview1.asp
- 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.