TMethod

本文深入探讨了Delphi中对象方法的调用机制,包括onclick事件处理、方法指针的使用及如何通过方法名调用方法等内容。通过具体示例讲解了TMethod结构、方法指针的组成及其在实践中如何应用。

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

onclick是TNotifyEvent类型;     type   TNotifyEvent   =   procedure(Sender:   TObject)   of   object;     就是说他是一个过程,而且是有一个TObject的参数,并且包含在一个对象里~~   关于类的方法:   (不是类方法,这里指object   pascal中的静态方法,相当于C++的成员函数)         1:   带有隐含参数   self         2:   方法是方法,数据是数据。         3:Delphi的方法是一个结构               type                   TMethod   =   record                       Code:   Pointer;     //方法的入口地址                       Data:   Pointer;     //类实例指针(Self参数)                   end;         我们调用类的方法,其实分为2个部分,         1:调用方法的代码,通过类来获得方法入口地址。         2:访问对象的数据(也可能不访问),通过类的方法的那个隐含参数Self来访问。   我做了一个测试:         TMyObject   =   class         private             FName:   string;         public             procedure   ChangeName(AName:   string);             procedure   ShowPrivate;         end;         procedure   TMyObject.ChangeName(AName:   string);     begin         FName   :=   AName;   //修改私有变量         ShowMessage('My   name   is   to   be   changed   to   '   +   AName);     end;         procedure   TMyObject.ShowPrivate;     begin         ShowMessage('My   name   is   '   +   FName);     end;         procedure   TForm1.Button1Click(Sender:   TObject);     type         TCallFun   =   procedure(AName:   string)   of   object;     var         E:   TMyObject;         M:   TMethod;     begin         E   :=   TMyObject.Create;         M.Code   :=   @TMyObject.ChangeName;   //这里设置要访问的方法的入口地址         M.Data   :=   @Pointer(E)^;       //设置Self参数,即类实例指针 @Pointer(E)^与Pointer(E)一样的         TCallFun(M)('Xbl');         E.ShowPrivate;     //My   name   is   Xbl         E.Free;     end;    

 

delphi里的普通函数指针pointer 为4个字节,但是对象的方法指针是8个字节,由对象指针self(4字节)和函数指针(4字节)组合而成. 将普通的函数指针变成对象的方法指针就不是难事了. 下面是简单的例子代码. procedure  Button2Click(Sender: TObject);  //这里是一个普通的函数 implementation {$R *.DFM} procedure  Button2Click(Sender: TObject); begin   ShowMessage('1'); end; procedure TForm1.Button1Click(Sender: TObject); var   Method: TMethod; begin   Method.Code := @Button2Click;      //取得Button2Click函数指针   Method.Data := nil;                               //也可以是self   Button2.OnClick := TNotifyEvent(Method); end;  

 

How to execute a method (procedure/function) by name Category: Pascal Here's a simple trick to execute a Delphi object's method by name: ~~~~~~~~~~~~~~~~~~~~~~~~~ type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject) ; procedure CallMeByName(Sender: TObject) ; private procedure ExecMethod(OnObject: TObject; MethodName: string) ; end; var Form1: TForm1; type TExec = procedure of object; procedure TForm1.ExecMethod(OnObject: TObject; MethodName: string) ; var Routine: TMethod; Exec: TExec; begin Routine.Data := Pointer(OnObject) ; Routine.Code := OnObject.MethodAddress(MethodName) ; if NOT Assigned(Routine.Code) then Exit; Exec := TExec(Routine) ; Exec; end; procedure TForm1.CallMeByName(Sender: TObject) ; begin ShowMessage('Hello Delphi!') ; end; procedure TForm1.Button1Click(Sender: TObject) ; begin ExecMethod(Form1, 'CallMeByName') ; end;

资源下载链接为: https://pan.quark.cn/s/22ca96b7bd39 在当今的软件开发领域,自动化构建与发布是提升开发效率和项目质量的关键环节。Jenkins Pipeline作为一种强大的自动化工具,能够有效助力Java项目的快速构建、测试及部署。本文将详细介绍如何利用Jenkins Pipeline实现Java项目的自动化构建与发布。 Jenkins Pipeline简介 Jenkins Pipeline是运行在Jenkins上的一套工作流框架,它将原本分散在单个或多个节点上独立运行的任务串联起来,实现复杂流程的编排与可视化。它是Jenkins 2.X的核心特性之一,推动了Jenkins从持续集成(CI)向持续交付(CD)及DevOps的转变。 创建Pipeline项目 要使用Jenkins Pipeline自动化构建发布Java项目,首先需要创建Pipeline项目。具体步骤如下: 登录Jenkins,点击“新建项”,选择“Pipeline”。 输入项目名称和描述,点击“确定”。 在Pipeline脚本中定义项目字典、发版脚本和预发布脚本。 编写Pipeline脚本 Pipeline脚本是Jenkins Pipeline的核心,用于定义自动化构建和发布的流程。以下是一个简单的Pipeline脚本示例: 在上述脚本中,定义了四个阶段:Checkout、Build、Push package和Deploy/Rollback。每个阶段都可以根据实际需求进行配置和调整。 通过Jenkins Pipeline自动化构建发布Java项目,可以显著提升开发效率和项目质量。借助Pipeline,我们能够轻松实现自动化构建、测试和部署,从而提高项目的整体质量和可靠性。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值