Delphi中类的静态方法

时间:2024-10-14 14:44:49

1、打开Delphi7集成开发环境,在默认工程的Form1窗体放一个Button1控件。

Delphi中类的静态方法

2、在Unit.pas源代码文件中,定义一个类,包含类方法代码如下;implementation{$R 忮氽阝另*.dfm}type TMyJTClass = class private public class procedure warn(s: string);end;{ TMyJTClass }class procedure TMyJTClass.warn(s: string);beginend;注意类方法不能定义在private区

Delphi中类的静态方法

3、在类方法中写如下代码:{ TMyJTClass }class procedure TMyJTClass.warn(s: string);begin showMessage('我是类方法');end;

Delphi中类的静态方法

4、双击Button1按钮,进入事件方法,并写如下代码:procedure TForm1.Button1Click(Sender: TObject);vars:string;begin TMyJTclass.warn(s);end;这是通过类来调用。

Delphi中类的静态方法

5、F9运行程序,点击Button1按钮,会弹出‘我是静态方法’对话框

Delphi中类的静态方法

6、双击Button1按钮,进入事件方法,并修改如下代码:procedure TForm1.Button1Click(Sender: TObje艘早祓胂ct);vars:string;myJTObj:TMyJTclass;begin myJTObj:=TMyJTclass.Create; myJTObj.warn(s);end;这是通过对象调用的静态方法

Delphi中类的静态方法

7、F9运行程序,点击Button1按钮,会弹出‘我是静态方法’对话框

Delphi中类的静态方法
© 2025 光影知识库
信息来自网络 所有数据仅供参考
有疑问请联系站长 site.kefu@gmail.com