首页 相关文章 如何根据类的名字来生成对象

如何根据类的名字来生成对象

有时候我们可能在程序中需要动态去生成一些对象,但我们又不想写大量的case分支语句来实现,而是建一张表,根据类的名称或其他一些索引来生成类的实例——对象。如果你有这方面的需要,本文将会帮助你实现这一目的。在写正文之前首先要引进一个概念,类的变量(自己起的准确不准确无所谓,只大家明白就行啦)。这个类的变量并非我们平时看到的这样的定义如:Edit1:TEdit。这样的定义只是定义了一个对象。如果想定义类的变量,我们需要这样定义,首先要定义一个类型类的类 Type TEditClass=class of Tedit;这样的话TEditClass就是一个类的类型。我们就可以通过:Var EditClass:TEditClaa;来定义类的变量了。如果我们想来生成一个TEdit的实例,就可以通过下面这段程序来实现:type TEditClass=class of TEdit;
  procedure TForm1.Button1Click(Sender: TObject);
  var EditClass:TEditClass;
   Edit1:TEdit;
  begin
   EditClass:=TEdit;
   Edit1:=EditCl...[ 查看全文 ]

2016-02-19 标签:

如何根据类的名字来生成对象的相关文章

手机页面
收藏网站 回到头部