请教，如何动态生成

Question

比如，你获得的类名称为TEdit
则：
var
  edit1: TEdit;
begin
  edit1:=TEdit.Create(self);
  edit1.其他属性：＝
end;

Answer 1

首先的这个这个Class必须用RegisterClass注册。然后用FindClass找到这个TClass，然后就可以：
var
  a: TObject;
  b: TClass;
 
  b := FindClass(YourClassName);
  a := b.Create;  

Answer 2

楼上的方法只能用在TComponent的派生类里

Answer 3

DELPHI 不支持宏,所以DELPHI没办法直接实现,
但可以间接实习,
var
  ClassName :string;
  obj :Tobject;
begin
  ClassName := xx.FieldByName('xx').asstring;
  if ClassName = 'xx' then   obj := xx.create .....
  elseif ClassName = 'yy" then obj := yy.create .....
  elseif ....
  
    
  end;
end;

Answer 4

用GetClass吧，但这个类必须是从TPersistent继承下来的并已注册。