在Delphi中，类被当作一个类型来定义。其语法格式：
type 类名=class（基类）
{字段声明}
{方法声明}
{属性声明}
end;
1、Delphi面向对象程序设计，要求对象都由某个基本对象继续而来，即由Class指定父对象。Delphi约定最基本的类是TObject，编程中我们所有的对象声明都是由ＴObject或由TObject派生的对象继承而来。如：
Type TPerson = class(TObject) // 从基类TObject继续声明人员类
public
Name:string; // 姓名
function GetAge:Integer; // 获取年龄
private
Age:integer; // 年龄
end;
注意：关键词class后的(TObject)可以省略。如：Type TPerson = class与Type TPerson = class(TObject)等效。
Type TEmployee = class(TPerson) // 从人员类继续，声明职员类
public
Salary:integer; // 薪金
DaptName:string; // 部门名称
procedure Infor; // 显示职员信息
procedure SetSalary(A:Integer); // 设置薪水
end;
2、由ＴObject继承派生的对象，默认构造函数、析构函数。上述对象TPerson、TEmployee的构造函数、析构函数分别为Creat()和Destroy()。如果要在对象中定义构造函数，要使用关键词constructor。如果要在对象中定义析构函数，要使用关键词destructor和override。如：
Type TCustomer = class(TPerson) // 从人员类继续，声明顾客类
public
AddressName:string; //
procedure Infor; // 显示职员信息
constructor Creat(Str:string); // 设置薪水
destructor Destroy:override; // 设置薪水
end;
3、对象数声明的属性读和写，以及方法（内部的函数、过程），必须在Unit的实现部分（implementation)详细表述。
function TPerson.GetAge:integer;
begin
Result:=Age;
end;
procedure TEmployee.Infor;
begin
Writeln('姓名',Name,'年龄',GetAge,'部门',DaptName,'薪水',Salary)
end;
constructor TCustomer.Creat(Str:string);
begin
inherited;
Writeln('顾客类的构造函数');
AddressName:=Str;
end;
destructor TCustomer.Destroy;
begin
Writeln('姓名：',Name,'的顾客对象被删除');
inherited Destroy;
end;
4、Delphi的每个类的根类都是TObject，如果不指明一个明确的基类，Delphi将自动使用TObject作为基类。例如：
TMyObject=class // 默认基类为TObject
provate
....
public
...
————————————————
版权声明：本文为CSDN博主「lyhoo163」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/lyhoo163/article/details/5120755