Delphi 类的学习

最新推荐文章于 2025-04-16 22:20:34 发布

LoveCProgramming

最新推荐文章于 2025-04-16 22:20:34 发布

阅读量825

点赞数

CC 4.0 BY-SA版权

文章标签： delphi integer button string class forms

本文链接：https://blog.csdn.net/LoveCProgramming/article/details/5334140

一、类与对象

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

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

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

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

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

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

成员

方法

属性

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

二、创建一个类

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

实例1

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

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

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

实例2

四、类的继承

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

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

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.