首页 > 代码库 > 类和对象
类和对象
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个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。