类类型的使用

最新推荐文章于 2023-03-09 16:02:36 发布

原创最新推荐文章于 2023-03-09 16:02:36 发布 · 432 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#constructor #integer #class #forms #windows

Delphi语言基础知识专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个Delphi应用程序中类与对象的具体实现方法，包括类的声明、构造函数的重写以及对象数组的创建与操作。通过实例展示了如何根据不同子类特性创建对象并获取其属性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.