类-方法

类-方法

方法是在类中定义的且包装在类中的子程序，用于执行类的操作，完成类的任务，方法按功能分有6种类方法。

(1)过程方法

声明格式为：Procedure过程名（参数列表）;

(2)函数方法

声明格式为：Function函数名（参数列表）:返回值;

(3)类过程

声明格式为：Class Procedure 类过程名（参数列表）;

(4)类函数

声明格式为：Class Function 类函数名（参数列表）:返回值;

(5)构造器（构造函数,来创建类的实例）

声明格式为：Constructor 构造器名（参数列表）;

(在Delphi中，构造器名一般都为Create)

（6）析构器（析构函数,来销毁或释放类的实例）

声明格式为：Destructor 析构器名（参数列表）;

(在Delphi中，析构器一般都为Destroy)

type
  TMingRiClass=Class
  public
    procedure NormalPro(s:string);             //过程方法
    function NormalFun(s:string):string;       //函数方法
    class procedure ClassPro(s:string);        //类过程
    class function ClassFun(s:string):string;  //类函数
    constructor create;                        //构造器
    destructor destroy;                        //析构器
end;

implementation
{$R *.dfm}
{ TMingRiClass }

class function TMingRiClass.ClassFun(s: string): string;
begin
  MessageDlg('调用类函数方法参数为：'+s,mtConfirmation,[mbok],0);
  result:='';
end;

class procedure TMingRiClass.ClassPro(s: string);
begin
  MessageDlg('调用类过程方法参数为：'+s,mtConfirmation,[mbok],0);
end;

constructor TMingRiClass.create;
begin
  MessageDlg('构造器方法',mtConfirmation,[mbok],0);
end;

destructor TMingRiClass.destroy;
begin
  MessageDlg('析构器方法',mtConfirmation,[mbok],0);
end;

function TMingRiClass.NormalFun(s: string): string;
begin
  MessageDlg('调用过程方法参数为：'+s,mtConfirmation,[mbok],0);
  result:='';
end;

procedure TMingRiClass.NormalPro(s: string);
begin
  MessageDlg('调用函数方法参数为：'+s,mtConfirmation,[mbok],0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MingRi:TMingRiClass;
  stemp:string;
begin
  MingRi.ClassPro('MingRiSoft');
  stemp:=MingRi.ClassFun('MingRiSoft');
  //区别：类过程、函数不用构造和析构
  MingRi:=TMingRiClass.create;
   MingRi.NormalPro('MingRiSoft');
   stemp:=MingRi.NormalFun('MingRiSoft');
  MingRi.destroy;
end;