理解Delphi的類(二) - 初識類的方法

說到"類", 就會提到:

屬性、方法、事件 (這是類包含的內容);

封裝、繼承、多態 (這是類的主要用途).

下面定義並調用了了一個過程 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.