首页 > 代码库 > 类和对象
类和对象
1.类的声明，格式：
Type
TMyClass = class
end;
Type
TBase = class
procedure msg1;
end;
Type
TChild = class(TBase) //类的继承
procedure msg2;
end;
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.
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.
类和对象
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。