如何动态生成一个类(类型)??

Borlandor 2001-11-03 04:49:18
我想定义一个类类型(类似 TClass),但这个类是在程序中动态生成的。
比如下面一个函数:
function CreateRectangle(Name:String; TopLeft,BottomRight:PTypeInfo):TClass;
{
// ????
}
怎么实现?我有如下应用:
MyClass: TClass;
MyRect: TObject;

MyClass := CreateRectangle("TRect",TypeInfo(TPoint),TypeInfo(TPoint));
MyRect := MyClass.Create;
MyRect.TopLeft := Point(10,10);
MyRect.BottomRight := Point(100,100);
。。。。。。
...全文
80 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Miracle 2001-11-03
  • 打赏
  • 举报
回复
TObject有ClassType属性。
julyclyde 2001-11-03
  • 打赏
  • 举报
回复
呵呵,要是VBSCRIPT的话可以实现。DELPHI帮不上忙了

5,378

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧