核心教程第一课-类在Delphi中的作用

 

 

类以Type起始end结束,声明一个类习惯以T开头

Type

TPerson=class(TObject)  //声明一个TPerson的类，它继承与TObject

Private  //私有，不允许直接访问，必须通过类的方法访问

Name:string[20];

Sex:Integer;

Height:Double;

Birthday:string[10];

public

construct Create;  //类的构造器，Create是同一的名字

destruct Destroy;override;//析构器，会把这个类在创建过程中申请的内存释放掉，返回给计算机操作系统

function InitPerson:boolean；

end;

destructor TPerson.destory;

begin

  inherited;//继承父类的方法，释放内存

end;

控件的动态创建

mybnt:=TButton.Create(self);//self为按钮的拥有者，本质是一个指针

if mybnt<>nil then mybnt.free;//释放

创建按钮事件，在Form的private内新建事件，格式同系统默认的按钮单击事件

private

    Procedure MyClick(Sender:TObject);

mybnt.OnClick:=MyClick;