Delphi 类的学习

一、类与对象

1、  类(Class)是用户定义的数据类型

2、  对象（Object）是类(Class)的一个实例，或由类定义数据类型的一个变量;

3、  类有一种状态（内部数据），操作（行为或方法），属性;

4、  对象是一个实体，程序运行时会为其内部表现分配一些内存;

5、  类与对象之间的关系和变量与类型之间一样的；

6、创建一个类 类型名(class name) =class

                      成员

                      方法

                      属性

7、对象用完之后应该释放内存;

 

二、创建一个类

1、一个类的变量不会为对象提供内存，只是在内存中提供一个引用或指针;

 

实例1

 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} type TMyClass = class //创建一个TMyClass类 name : String; age : Integer; end; procedure TForm1.Button1Click(Sender: TObject); Var MyCls : TMyClass; //声明一个对象 begin MyCls :=TMyClass.Create; //分配内存或初始化 构造一个实例，对象实质化; MyCls.name :='测试'; MyCls.age :=2010; ShowMessage(MyCls.name); //显示'测试 ' MyCls.Free; //释放类的占用的内存; end; end.

 

 

 

 

三、类的方法1、    类的方法也就是过程或函数

2、    在类的定义中，方法只能被声明,然后在本单元中定义

3、    Ctrl+Shit+C的运用，在类中当方法被声明后可以使用Ctrl+Shit+C组合键，delphi会自动声明类的方法定义

 

 

 

 实例2 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} type TMyClass = Class name :String; age :integer; procedure SetName(Value : String); procedure SetAge(Value : Integer); end; procedure TMyClass.SetName(Value : String); begin if Value ='' then ShowMessage('名字不能为空') else name := Value; end; procedure TMyClass.SetAge(Value : Integer); begin if (Value <0) or (Value >150) then ShowMessage('年龄不合法') else age :=Value; end; procedure TForm1.Button1Click(Sender: TObject); Var MyCls : TMyClass; begin MyCls := TMyClass.Create; MyCls.SetName('小二'); //调用方法SetName; MyCls.SetAge(152); //调用方法SetAge; ShowMessage(MyCls.name); // MyCls.Free; end; end.

 

 

 

 

四、类的继承

 

 

父类又称基类 ,通过修改父类得到的类,  称为子类,  子类又称为派生类;

子类的特点除了继承父 所有特征外还可以自已定义或声明属于自已的状态，方法，属性;

 

type TMyClass1 = class Name : String; procedure SetName(value : String); end; TMyClass2 =class(TMyClass1) //子类TMyClass2继承TMyClass1方法和状态 Age : Integer procedure SetAge(value : integer); end;

 

 

 实例3

 

 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TMyClass = class name : String; procedure SetName(value : String); end; TMyClass1 =class(TMyClass) age : integer; procedure SetAge(value :Integer); end; var Form1: TForm1; implementation {$R *.dfm} { TMyClass } procedure TMyClass.SetName(value: String); begin if value <> '' then self.name := value else ShowMessage('Name Can''t be empty'); end; { TMyClass1 } procedure TMyClass1.SetAge(value: Integer); begin if (value>150) or (value<0) then ShowMessage('value is too biger or smaller') else self.age :=value; end; procedure TForm1.Button1Click(Sender: TObject); Var MyCls :TMyClass; begin MyCls :=TMyClass.Create; MyCls.name:='Test'; ShowMessage(MyCls.name); MyCls.Free; end; procedure TForm1.Button2Click(Sender: TObject); Var MyCls1 :TMyClass1; begin MyCls1 :=TMyClass1.Create; MyCls1.SetName('John'); MyCls1.SetAge(20); ShowMessage(MyCls1.name+' '+IntToStr(MyCls1.age)); MyCls1.Free; end; end.

 

 

五、类的封装

一、基本概念

封装简单就是是‘黑盒子’（ADT） 用户不用知道里面是什么，只要知道通过‘黑盒子’的接口就能使用

 

例如一台电脑的USB接口，我们不用管内部是怎么设计的，但我们知道电脑机箱外有一个接口，把USB接到那个接口就能使用U盘了，

同理一个类的接口，我们只要知道一个类里通过哪一个变量就能得到期望的功能，但不用知道这个功能是怎么实现，只要知道哪个接口的功能是你想要的就可以

例如

一个Form1的标题

 

Form1.Caption :=’测试’;  //Caption 就是设置标题的接口

Form1.Color :=CLRED;   //改变颜色是通过Color接口

二、基于封装的标识符确认访问权限

private    只在该单元的该类/子类中可见 

D2007 D2010 加了个strict private 只能在类中可见；

protected  只能在该单元的该类/子类中可见

public   任何引用该类的单元都可用其方法，属性

published 和public差不多，但它可以在对象显示器查看

 

 

 

三、属性

 

     由于访问标识符限制访问数据权根，这时要访问类中的专有字段(成员变量) Delphi提供property 关键字来访问

 

语法

     property 变量(也就是接口) :数据类型 read  字段 write 方法

 

 

实例4

 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TMyClass = class strict private //私有字段与方法，只能在该类(TMyCLass)中可见 Fname : string; procedure SetName(value : String); private //Fage 字段 只能在本单元引用，在父类和子类中都可见 Fage : Byte; protected //该方法，只能在本单元引用，该类或子类中可见 age :integer; procedure SetAge(const value :integer); procedure Show; public //任何引用该类的地方都可见 property name :string read Fname write Setname; //访向Fnage字段 end; TMyCls =class(TMyClass) end; var Form1: TForm1; implementation {$R *.dfm} { TMyClass } procedure TMyClass.SetAge(const value: integer); begin self.age :=value; end; procedure TMyClass.SetName(value: String); begin if value <>'' then self.Fname :=value; end; procedure TMyClass.Show; begin ShowMessage(self.Fname); end; procedure TForm1.Button1Click(Sender: TObject); Var MyCls : TMyClass; MyCls1 :TMyCls; begin MyCls := TMyClass.Create; MyCls1 :=TMyCls.Create; MyCls.name:='Pengshaomin'; // MyCls.Show; MyCls.SetAge(20); ShowMessage(IntToStr(MyCls.age)); //显示20 MyCls.Fage:=22; ShowMessage(IntTOStr(MyCls.Fage)); //22 MyCls1.Fage:=26; ShowMessage(IntTOStr(MyCls1.Fage)); MyCls.Free; MyCls1.Free; end; end.