dephi中共用菜单函数

Question

我编了一个程序，要给5个1级菜单 中的 6个2级菜单 的check 项 输入数据
//从站 总菜单 检索 画 勾
procedure TMainMdiForm.CongZhanMenu0Click(Sender: TObject);
var
n ,i:Integer;
str,str1:String;
begin
       n := StrToInt(RightStr(TMenuItem(Sender).Name,1));
       str := 'CongZhanStateMenu'+IntToStr(n);
       TMenuItem(str).Checked := JMSgn.CongZhanJMSgn[n];//出错？？？？？？？？？？？？？？？
       str :=   'MuoKuaiMenu'+IntToStr(n);
       for i:=0 to 5 do
       begin
          str1 := str  +  IntToStr(i) ;
          TMenuItem(str1).Checked :=JMSgn.MuoKuaiJMSgn[n][i];
       end;
    
    
end;

Answer 1

str是个字符串，怎么能强转成TMenuItem？
你需要根据这个名称找到那个菜单项再设置checked属性。