Tcl中foreach循环创建按钮时点击事件传参异常如何解决

问题原因 #

你代码里所有按钮点击都输出最后一组参数val8--val9，核心原因是Tcl语法规则：用大括号{}包裹的脚本不会在定义阶段做变量替换，只会在脚本实际执行（也就是按钮被点击）时才去读取$arg1、$arg2的变量值。等foreach循环全部执行完成后，arg1和arg2留存的就是最后一轮循环的赋值，所以所有按钮触发时读到的都是这两个最终值。

修复方案 #

最规范、兼容性最好的写法是用list命令构造回调脚本，它会在循环定义阶段就把当前轮次的参数值固化到回调命令里，还能自动处理参数包含空格、特殊字符的场景，不会出现脚本注入问题。
修正后的完整代码如下：

set cord_y 25
foreach {x but_name arg1 arg2} {1 button-1 val1 val2 2 button-2 val3 val4 3 button-3 val4 val5 4 button-4 val6 val7 5 button-5 val8 val9} {
    button $a.$x -text $but_name -command [list print $arg1 $arg2]
    place $a.$x -x 20 -y $cord_y -width 80 -height 25
    # expr表达式用大括号包裹是Tcl推荐写法，避免二次解析风险
    set cord_y [expr {$cord_y + 35}]
}

proc print {i j} {
    puts "$i--$j"
}

其他可选写法（不推荐） #

你也可以用双引号""替换大括号包裹-command后的脚本，强制变量在循环定义阶段就完成替换：

button $a.$x -text $but_name -command "print $arg1 $arg2"

这种写法的缺陷是如果参数里包含空格、$、[]等Tcl特殊字符，会出现解析错误，没有特殊需求不要用。

内容的提问来源于stack exchange，提问作者vetri