？delphi中有没有类似JAVA中CLASS.FORNAME（）的用法，就是用字符传来操纵一个对象

Question

RegisterClasses([TIcon, TBitmap, TJPEGImage, TMetafile]);
  Edit1.Text := GraphicExtension(TGraphicClass(GetClass(Edit2.text)))

Answer 1

有的阿 ！
function FreeObjectByName(AName:String,Aowner:TComponent):boolean;
var
 I:integer;
 
begin
 for i:=0 to Aowner.ComponentCount-1 do
end;

Answer 2

function FreeObjectByName(AName:String,Aowner:TComponent):boolean;
var
 I:integer;
 
begin
 for i:=0 to Aowner.ComponentCount-1 do
  if Aowner.Components[i]=AName then
     begin
     Aowner.Components[i].Free;
     break;
     
     end;
end;
不能对你自己在设计阶段放在上面的冬冬进行释放
否则你呵呵（delphi自己管理的那部分),你可结合 is ,as 
做出更多的方法！