小李子

小小的蜗牛,慢慢的爬。
随笔 - 133, 文章 - 0, 评论 - 6, 阅读 - 71999
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理
< 2025年1月 >
29 30 31 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 1
2 3 4 5 6 7 8

Delphi 根据字符串创建对象

Posted on   ljl_falcon  阅读(477)  评论(0编辑  收藏  举报

我们可以通过ClassReGIStry单元的TClassRegistry类很轻松的根据字符串创建出对象。

  下面是该类几个主要函数的说明:

// 获取TClassRegistry自身的单例引用
class function GetClassRegistry: TClassRegistry;
// 注册需要动态创建的类
procedure RegisterClass(ClassName: UnicodeString; ObjectClass: TClass); overload;
// 判断给定的类名是否注册
function HasClass(ClassName: UnicodeString): Boolean;
// 根据类名创建对象实例
function CreateInstance(ClassName: UnicodeString): TObject;

  当使用工厂模式或者抽象工厂模式创建产品的时候,如果我们要扩展新的具体产品,在创建方法中添加分支结构

  需要改动原有的工厂类。如果能够根据字符串实现动态创建那么只要添加新的具体产品单元就可以了。

  以下是一个用Delphi简单实现的Demo:

  UnitCar单元代码:

  UnitCar

 1Delphi 根据字符串创建对象unit UnitCar;
 2Delphi 根据字符串创建对象
 3Delphi 根据字符串创建对象interface
 4Delphi 根据字符串创建对象
 5Delphi 根据字符串创建对象type
 6Delphi 根据字符串创建对象
 7Delphi 根据字符串创建对象  TCar = class abstract
 8Delphi 根据字符串创建对象    function Run: string; virtual; abstract;
 9Delphi 根据字符串创建对象  end;
10Delphi 根据字符串创建对象
11Delphi 根据字符串创建对象  TRedCar = class(TCar)
12Delphi 根据字符串创建对象    function Run: string; override;
13Delphi 根据字符串创建对象  end;
14Delphi 根据字符串创建对象
15Delphi 根据字符串创建对象  TBlueCar = class(TCar)
16Delphi 根据字符串创建对象    function Run: string; override;
17Delphi 根据字符串创建对象  end;
18Delphi 根据字符串创建对象
19Delphi 根据字符串创建对象  TBlackCar = class(TCar)
20Delphi 根据字符串创建对象    function Run: string; override;
21Delphi 根据字符串创建对象  end;
22Delphi 根据字符串创建对象
23Delphi 根据字符串创建对象implementation
24Delphi 根据字符串创建对象
25Delphi 根据字符串创建对象uses
26Delphi 根据字符串创建对象  ClassRegistry;
27Delphi 根据字符串创建对象
28Delphi 根据字符串创建对象{ TBlackCar }
29Delphi 根据字符串创建对象
30Delphi 根据字符串创建对象function TBlackCar.Run: string;
31Delphi 根据字符串创建对象begin
32Delphi 根据字符串创建对象  Result := 'BlackCar Ready to run!'
33Delphi 根据字符串创建对象end;
34Delphi 根据字符串创建对象
35Delphi 根据字符串创建对象{ TBlueCar }
36Delphi 根据字符串创建对象
37Delphi 根据字符串创建对象function TBlueCar.Run: string;
38Delphi 根据字符串创建对象begin
39Delphi 根据字符串创建对象  Result := 'BlueCar Ready to run!'
40Delphi 根据字符串创建对象end;
41Delphi 根据字符串创建对象
42Delphi 根据字符串创建对象{ TRedCar }
43Delphi 根据字符串创建对象
44Delphi 根据字符串创建对象function TRedCar.Run: string;
45Delphi 根据字符串创建对象begin
46Delphi 根据字符串创建对象  Result := 'RedCar Ready to run!'
47Delphi 根据字符串创建对象end;
48Delphi 根据字符串创建对象
49Delphi 根据字符串创建对象initialization
50Delphi 根据字符串创建对象  TClassRegistry.GetClassRegistry.RegisterClass(TRedCar.ClassName, TRedCar);
51Delphi 根据字符串创建对象  TClassRegistry.GetClassRegistry.RegisterClass(TBlueCar.ClassName, TBlueCar);
52Delphi 根据字符串创建对象  TClassRegistry.GetClassRegistry.RegisterClass(TBlackCar.ClassName, TBlackCar);
53Delphi 根据字符串创建对象end.

 在这里我们声明了一个抽象的基类TCar和继承自TCar的三个具体的类。

  在单元初始化处用ReGISterClass方法注册了这三个子类。

  UnitMain调用处代码:

  UnitMain

 1Delphi 根据字符串创建对象procedure TDemoForm.CreateClick(Sender: TObject);
 2Delphi 根据字符串创建对象var
 3Delphi 根据字符串创建对象  ClassRegistry: TClassRegistry;
 4Delphi 根据字符串创建对象  Car: TCar;
 5Delphi 根据字符串创建对象begin
 6Delphi 根据字符串创建对象  ClassRegistry := TClassRegistry.GetClassRegistry;
 7Delphi 根据字符串创建对象  if ClassRegistry.HasClass(Name.Text) then
 8Delphi 根据字符串创建对象  begin
 9Delphi 根据字符串创建对象    Car := ClassRegistry.CreateInstance(Name.Text) as TCar;
10Delphi 根据字符串创建对象    Memo.Lines.Add(Car.Run);
11Delphi 根据字符串创建对象    Car.Free;
12Delphi 根据字符串创建对象  end else
13Delphi 根据字符串创建对象    Memo.Lines.Add(Format('Class %s has not registerd!', [Name.Text]));
14Delphi 根据字符串创建对象end;

  效果图:

Delphi 根据字符串创建对象

  如果我们需要扩展个TYellowCar那么我们只要添加个继承自TCar的TYellowCar类并且注册该类就可以了。

 

点击右上角即可分享
微信分享提示