delphi 字符串转控件名 FindComponent

字符串转控件名 FindComponent

FindComponent功能是找控件，找到就返回控件，找不到就是nil

方法一：

Image0.Picture:=(Form3.FindComponent('Image'+IntToStr(i)) as TImage).Picture;

方法二：

Image0.Picture:=TImage(Form3.FindComponent('Image'+IntToStr(i))).Picture;

方法三：

procedure TForm3.Button1Click(Sender: TObject);

var

    aCompent: TComponent;

begin

     aCompent :=Form3.FindComponent('Image'+IntToStr(i));

     if aCompent  <> nil then

     begin

             with (aCompent as TImage).Picture do

             begin

                  Icon:=Image0.Picture.Icon;

             end;

end；