VCL原生类/类工厂实现

发贴人:bluelover
发表时间:2007年10月19日20:15:57 星期五

关键字：VCL原生类,类工厂,ClassFacatory,ppower
一、VCL的原生方法简单易用：
1、 RegisterClass(__classid(TForm1));
必须要先注册，否则FindClass找不到这个类。这一步可以创建一个注册单元，将所有要生成的Form注册进去。
2、 TClass aClass = FindClass("TForm1");
TClass是从类名称生成实例的桥梁。
3、 TForm *Form = NULL;
Application->CreateForm(aClass,Form);
BCB用这种方法生成类实例。其Owner是Application , 当然也可以改变Owner。在生成实例这点，Delphi有着先天的优势，Delphi的代码更简单明了。

二、下面是BCB实现的一个简单的类工厂实现，不使用VCL的TClass机制 , 要较多的C++知识才好理解。(注：重要的是思路，而不是代码,参考一下<设计模式>会发觉这只是一个工厂模式而已)

#include <vector>
#include <Classes.hpp>
//---------------------
typedef TComponent *(*TCreateMe)(TComponent* Owner);
struct TMyClassInfo
{
AnsiString ClassName;
TCreateMe CreateMe;
TMyClassInfo(AnsiString const &aClassName, TCreateMe aCreateMe) :
ClassName(aClassName), CreateMe(aCreateMe) {}
};
bool operator == (TMyClassInfo const &A, AnsiString const &ClassName)
// 本文转自 C++Builder 研究 - http://www.ccrun.com/article.asp?i=655&d=a38061
{
return A.ClassName == ClassName;
}
//---------------------
class TMyClassFacatory // 单件模式的最简单实现:全局静态变量
{
static std::vector<TMyClassInfo> ClassInfo;
public :
static inline void RegisterClass(AnsiString const &ClassName, TCreateMe CreateMe)
{
// 这里没检查重名。
ClassInfo.push_back(TMyClassInfo(ClassName, CreateMe));
}
static TComponent* CreateObject(AnsiString const&ClassName, TComponent *Owner)
{
std::vector<TMyClassInfo>::iterator pos;
pos = std::find(ClassInfo.begin(), ClassInfo.end(), ClassName);
if(pos != ClassInfo.end())
return pos->CreateMe(Owner);
return NULL;
}
// 这行可不要,放在这里是为了完整性。
static inline void DeleteObject(TComponent *x) { delete x; }
};
//---------------------
std::vector<TMyClassInfo> TMyClassFacatory::ClassInfo; // 为类的静态成员分配空间

// 下面的模板与宏是为了使用上更简单。

template <typename T>
TComponent *_Class_CreateMe(TComponent *Owner){return new T(Owner);}

template <typename T>
inline T *FactroyCreateObject(AnsiString const &ClassName, TComponent *Owner = NULL )
{
return (T*)TMyClassFacatory::CreateObject(ClassName, Owner);
}

#define FactroyRegisterClass(T)
TMyClassFacatory::RegisterClass(#T, _Class_CreateMe<T>);

// 用法更简单：
1、注册类：FactroyRegister(TForm1);
2、从类名生成实例
TForm *pForm = FactroyCreateObject<TForm>("TForm1", this);
或:
TForm *pForm = (TForm *)TMyClassFacatory::CreateObject("TForm1", this);