标签：blog http ar io 使用 sp for on div
1.类的声明，格式：
Type
TMyClass = class
end;
Type
TBase = class
procedure msg1;
end;
Type
TChild = class(TBase) //类的继承
procedure msg2;
end;
类可以声明在接口部分，也可以声明在应用部分；Type 只要一个联合使用就行，其他可以省略；
unit unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
Type
TForm1 = class(TForm)
end;
Type
Tbase = class //定义类
b : TDate; //声明类的变量
procedure msg1; //类的方法
end;
var
Form1 : TForm1;
implementation
procedure TBase.msg1; //定义过程实体
begin
showmessage(‘Is Base‘);
end;
procedure TForm1.Button1Click(Sender : TOBJect);
var
base : TBase; //声明类的变量，也就是类的对象;
begin
base := TBase.Create; //类需要实例化才能使用；
base.msg1;
base.Free; //用完后释放;
end;
end.
类和对象
标签：blog http ar io 使用 sp for on div
原文地址：http://www.cnblogs.com/delphiclub/p/4168006.html
