理解 Delphi 的类(二) - 初识类的方法
2008-01-11 01:23
232 查看
说到"类", 就会提到:
属性、方法、事件 (这是类包含的内容);
封装、继承、多态 (这是类的主要用途).
下面定义并调用了了一个过程 MyProc、一个函数 MyFun.
把过程与函数 MyProc、MyFun 包含在一个类里面.
一般情况下, 类都会定义在 interface 区; 在 implementation 区定义的类只能本单元使用.
属性、方法、事件 (这是类包含的内容);
封装、继承、多态 (这是类的主要用途).
下面定义并调用了了一个过程 MyProc、一个函数 MyFun.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //这是一个过程, 过程没有返回值 procedure MyProc(var x: Integer); begin x := x * 2; end; //这是一个函数, 函数必须有返回值 function MyFun(var x: Integer): Integer; begin x := x * 2; Result := x; end; //调用过程与函数 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin i := 6; MyProc(i); {使用过程} ShowMessage(IntToStr(i)); {12} i := 6; i := MyFun(i); {使用函数} ShowMessage(IntToStr(i)); {12} end; end.
把过程与函数 MyProc、MyFun 包含在一个类里面.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} Type TMyClass = class procedure MyProc(var x: Integer); function MyFun (var x: Integer): Integer; end; { 上面定义了一个类, 其中包含了两个方法; 函数与过程来到类里面一般叫做方法, 函数是有返回值的方法、过程是没有返回值的方法; 在这里, 方法只有定义没有实现; 但必须在本单元的 implementation 区内实现. 下面就是两个方法的实现: } function TMyClass.MyFun(var x: Integer): Integer; begin x := x * 2; Result := x; end; procedure TMyClass.MyProc(var x: Integer); begin x := x * 2; end; //调用测试 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; myClass: TMyClass; {对象声明} begin myClass := TMyClass.Create; {对象建立} i := 6; myClass.MyProc(i); {调用方法} ShowMessage(IntToStr(i)); {12} i := 6; i := myClass.MyFun(i); {调用方法} ShowMessage(IntToStr(i)); {12} myClass.Free; {对象释放} end; end.
一般情况下, 类都会定义在 interface 区; 在 implementation 区定义的类只能本单元使用.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; {类定义, 因为已经在 Type 区了, 可以省略 Type 关键字} TMyClass = class procedure MyProc(var x: Integer); function MyFun (var x: Integer): Integer; end; var Form1: TForm1; implementation {$R *.dfm} {TMyClass 中方法的实现} function TMyClass.MyFun(var x: Integer): Integer; begin x := x * 2; Result := x; end; procedure TMyClass.MyProc(var x: Integer); begin x := x * 2; end; //调用测试 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; myClass: TMyClass; {对象声明} begin myClass := TMyClass.Create; {对象建立} i := 6; myClass.MyProc(i); {调用方法} ShowMessage(IntToStr(i)); {12} i := 6; i := myClass.MyFun(i); {调用方法} ShowMessage(IntToStr(i)); {12} myClass.Free; {对象释放} end; end.
相关文章推荐
- 理解 Delphi 的类(二) - 初识类的方法
- 理解 Delphi 的类(二) - 初识类的方法
- 理解 Delphi 的类(十) - 深入方法[8] - 如果忘了返回值
- 理解 Delphi 的类(十) - 深入方法[16] - 方法的顺序
- 理解 Delphi 的类(十) - 深入方法[26] - 回调函数
- 理解 Delphi 的类(十一) - 深入类中的方法[2] - 关于覆盖与重定义
- 理解 Delphi 的类(十一) - 深入类中的方法[5] - 静态方法、类方法、静态类方法
- 理解 Delphi 的类(十一) - 深入类中的方法[13] - 方法的调用约定
- 理解 Delphi 的类(十) - 深入方法[9] - 调用时的括号
- 理解 Delphi 的类(十) - 深入方法[17] - 提前声明
- 理解 Delphi 的类(十) - 深入方法[20] - 静态数组参数
- 理解 Delphi 的类(十一) - 深入类中的方法[7] - 关于 inherited
- 理解 Delphi 的类(十一) - 深入类中的方法[12] - 消息方法
- 理解 Delphi 的类(十) - 深入方法[2] - 参数分割
- 理解 Delphi 的类(十) - 深入方法[10] - 默认参数
- 理解 Delphi 的类(十) - 深入方法[18] - 在接口区声明的方法都相当于提前声明了
- 理解 Delphi 的类(十) - 深入方法[27] - 递归函数: 简单示例
- 理解 Delphi 的类(十) - 深入方法[3] - 调用时参数分割
- 理解 Delphi 的类(十) - 深入方法[11] - 参数前缀