类类型的使用
来源:互联网 发布:360°全景图js 编辑:程序博客网 时间:2024/06/09 18:29
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm8 = class(TForm)
mmo1: TMemo;
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
//类类型的使用
TA = class
protected
Fa: integer;
public
constructor Create; virtual; //要是不加virtual的话,可以看看区别
property a: Integer read Fa default 1;
end;
TAClass = class of TA;
TB = class(TA)
public
constructor Create; override;
end;
TC = class(TA)
public
constructor Create; override;
end;
var
Form8: TForm8;
const
TBCarray: array[0..1] of TAClass = (TB, TC);
implementation
{$R *.dfm}
procedure TForm8.btn1Click(Sender: TObject);
var
i: integer;
tmpObject: TA;
begin
for i := 0 to 1 do
begin
tmpObject:= TBCarray[i].Create;
mmo1.Lines.Add('tmpObject.ClassName: ' + tmpObject.ClassName);
mmo1.Lines.Add('tmpObject.a: '+IntToStr(tmpObject.a));
end;
end;
{ TA }
constructor TA.Create;
begin
Form8.mmo1.Lines.Add('TA.Create');
Fa:= 1;
end;
{ TB }
constructor TB.Create;
begin
inherited Create;
Form8.mmo1.Lines.Add('TB.Create');
Fa:= 2;
end;
{ TC }
constructor TC.Create;
begin
Form8.mmo1.Lines.Add('Tc.Create');
Fa:= 3;
end;
end.
- 类类型的使用
- 使用类的类型成员
- JavaScript类的使用,引用类型分析
- 类类型数组的使用例子
- 类型的使用
- string类型的使用
- _variant_t类型的使用
- 枚举类型的使用
- CSTRING类型的使用
- _int64类型的使用
- 枚举类型的使用
- BYTE类型的使用
- enum类型的使用
- 枚举类型的使用
- 枚举类型的使用
- Block类型的使用
- 枚举类型的使用
- 布尔类型的使用
- 用C#.net轻松制作不规则窗体
- 关于分类首条记录的提取
- 《高性能网站建设指南》笔记
- 设置标志位提取字符串
- SQL 游标
- 类类型的使用
- background属性 设置有感
- 怎么理解性能测试中的TPS与HPS
- WINCE快捷方式详解
- 内联函数详解
- システム情報 記事一覧
- 数据库备份/恢复
- 客户区和非客户区?窗口客户区和视图客户区?
- 生成随机数