摘要：
//这个类中的两个字段没有封装 TMyClass1 = class FName: string; FAge: Integer; end; //这个类中的两个字段封装了, 外部不能读写 TMyClass2 = class private FName: string; FAge: Integer; //public end; //那怎么读写? 用属性啊 TMyClass3 = class private FName: String; FAge: Integer; procedure SetAge(const Value: Integer); procedure SetNam... 阅读全文
摘要：
当子类继承父类时，就享有了父类的方法，当然有些虚方法，或虚类我将在以后学习在下面这个例子中，简单讲解一下类的继承unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } ... 阅读全文
摘要：
首先我们看看类的属性与属性的自动完成功能在这里我们构建一个类，类有Age属性首先我们这样书写 TMyClass = class private { private declarations } protected { protected declarations } public { public declarations } property Age : integer; published { published declarations } end;第二步在该类中任意位置 输入 Ctrl + Shift + C 将生成一下代码 TMyClass... 阅读全文
摘要：
方法主要分为过程和函数有返回值的方法是函数，没有返回值的方法是过程在类中有两个区域可以声明方法 TMyClass = class(TComponent) private//这里 { private declarations } protected { protected declarations } public//这里 { public declarations } published { published declarations } end;在私有区声明的方法只有本单元内可以使用公共区声明的方法可供其他单元调用在这里举一个例子unit Unit1;i... 阅读全文
摘要：
从以下的例子中可以看出一个类的基本结构在代码编辑器中输入Ctrl+J将产生一个类类一般都声明在单元的interface区域，当然只供本单元使用的类可以定义在implementation区域 TMyClass = class(TComponent)//类继承于哪个父类 private { private declarations }//类的私有 protected { protected declarations }//可被该类本身及其子类使用 public { public declarations }//任何其他类调用 published { publish... 阅读全文