单挑高手：一个可变的字符串变量记录着类名（classname)，怎么样根据这个符串的值创建所含信息的类实例？？

Question

比如：
var
 sss:string;
begin
 sss:=Edit1.Text;假设sss='TQRDBText';
 如何创建一个TQRDBText的类实例？？
 不能
TQRDBText.Create();
 因为生成的不一定是TQRDBTExt类实例。 
 
end;

Answer 1

http://kingron.myetang.com/document/delphi/index.html
Delphi编程技巧-->Object Pascal-->面向对象和类-->根据名字来动态创建对象？

Answer 2

vb中都可以, 我想Delphi也行吧, 可我不会, gz

Answer 3

呵呵，就是实现VC里
RUNTIME_CLASS这个宠哦。

Answer 4

可呢吗？如果输入的是类名，我认为不行也没有意义，因为你这个类根本没有内容，（除非你的类已经定义好了，但是这样一来，由edit中得到这个类的名字有没有了意义）如果是一个对象的名字，可能还可以。

Answer 5

FindClass(const ClassName: string)

Answer 6

procedure TForm1.Button2Click(Sender: TObject);
begin
  TWinControlClass(FindClass('TQRDBText')).Create(Self);
end;initialization
  RegisterClasses([TQRDBText]);finalization
  UnregisterClasses([TQRDBText]);
end.—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————