TMyProc procedure of Object obj Txxx Create ProcPtr obj t

最新推荐文章于 2023-04-29 16:20:05 发布

3个女人一场戏

最新推荐文章于 2023-04-29 16:20:05 发布

阅读量3.4k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/hfuuhgcc/article/details/83721595

本文分享了Delphi程序设计的实例，包括按钮点击事件处理、方法传递等，通过具体代码展示了Delphi语言的使用技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.youkuaiyun.com/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！

type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure   BBB(I:   Integer);    procedure   CCC(I:   Integer);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;  Txxx=class     procedure test;  end;TMyProc=procedure of Object;TMyFunc=function(a: Integer): Integer of Object;var  Form1: TForm1;implementation{$R *.dfm}procedure Txxx.test;begin  showmessage('1');end;procedure   TForm1.BBB(I:   Integer);begin     showmessage( 'BBB: '   +   IntToStr(I)); end;procedure   TForm1.CCC(I:   Integer); begin     showmessage( 'CCC: '   +   IntToStr(I)); end;procedure TForm1.Button1Click(Sender: TObject);var ProcPtr:TMyProc; obj:Txxx;begin   obj:=Txxx.Create;  ProcPtr:= obj.test;//Txxx.test;  ProcPtr;   obj.Free;end;procedure TForm1.Button2Click(Sender: TObject);type         Taaa   =   procedure   (i:integer)   of   object   ; var     ap:   Taaa; begin     ap   :=   BBB; //这里有一个隐含Self,完整格式: self.BBB;这里把BBB这个方法赋给ap这个变量，注意BBB与ap的声明原型要一样，不然会有错    ap(1);     ap   :=   CCC;     ap(2); end;end.