Tcl动态编号变量创建失败求助：按钮点击动态生成变量问题

我尝试创建txt0、txt1这类编号变量，但遇到了阻碍，目前尚未找到问题原因。示例代码如下：

set txt0 ""
set txt1 ""
set txt3 ""

我希望通过按钮每次点击来动态实现这个功能，以下是我的代码：

frame .top.tab

button .top.tab.btnTab -text "+" -command { bell ; add }

frame .top.tool
.top.tool configure -relief "raised"

frame .top.panel
.top.panel configure -bg "white"

set n 0

proc add {} {

    global n

    set txt$n ""

        entry .top.tool.ent$n -textvar txt$n

        button .top.tool.btn$n -text txt$n -command " remove $n ; .top.panel.lbl$n config -textvar $txt$n "

        pack .top.tool.ent$n .top.tool.btn$n -side left
incr n
        label .top.panel.lbl$n -text "" -bg "white"

        pack .top.panel.lbl$n -fill both -expand yes -anchor e

}

pack .top.tab -side top -fill x -anchor nw
pack .top.tab.btnTab -side right

proc remove { number } {    

    set total 2

    for { set i 0 } { $i < $total } { incr i } {                    
                    
        pack forget .top.panel.lbl$i
        
    }
    
    pack forget .top.panel.lbl$total
        
    pack .top.panel.lbl$number -fill both -expand yes -anchor e
}

pack .top.tool -side top -fill x -anchor nw
pack .top.panel -side top -fill both -expand yes -anchor sw

请问问题出在哪里？

我怀疑问题出在$txt$n变量相关的写法上

你的怀疑是对的，代码里的变量处理、控件编号逻辑存在几个关键问题：

1. 动态变量赋值的写法错误 #

Tcl中直接用set txt$n ""会导致解析器把txt$n当成一个整体变量名，无法正确识别动态拼接的变量名。有两种修正方式：

• 用间接引用：

  set varname "txt$n"
  set $varname ""
  

• 更推荐用数组替代编号变量（代码更清晰易维护）：
  定义全局数组txt，赋值时用set txt($n) ""，后续控件的-textvar参数直接写txt($n)即可。

2. 按钮命令的变量替换时机错误 #

按钮的-command用双引号包裹时，变量会在按钮创建时就完成替换，而不是点击按钮时。比如$n会直接替换成当前的数值，$txt$n的写法更是完全错误——解析器会先尝试读取不存在的$txt变量，再拼接$n，根本不是你要的动态变量名。

正确做法是用list构造命令，确保参数在点击时才正确传递：

button .top.tool.btn$n -text "txt$n" -command [list remove $n]

3. 标签控件的编号不匹配 #

在add过程中，你先创建了ent$n和btn$n，然后执行incr n，再创建lbl$n——这会导致标签的编号比输入框、按钮大1（比如第一次点击时，输入框是ent0，标签却是lbl1），后续remove操作引用的控件会对应不上，出现找不到控件的错误。

应该把incr n放在所有控件创建之后，确保输入框、按钮、标签的编号一致：

proc add {} {
    global n

    set varname "txt$n"
    set $varname ""

    entry .top.tool.ent$n -textvar $varname
    button .top.tool.btn$n -text "txt$n" -command [list remove $n]
    pack .top.tool.ent$n .top.tool.btn$n -side left

    label .top.panel.lbl$n -text "" -bg "white" -textvar $varname
    pack .top.panel.lbl$n -fill both -expand yes -anchor e

    incr n
}

4. remove过程的硬编码问题 #

remove里的set total 2是硬编码，只能处理最多3个标签，应该动态获取.top.panel下的所有子控件来隐藏：

proc remove { number } {    
    # 隐藏所有.panel下的标签
    foreach lbl [winfo children .top.panel] {
        pack forget $lbl
    }
    # 显示指定编号的标签（先判断控件是否存在）
    set target_lbl ".top.panel.lbl$number"
    if {[winfo exists $target_lbl]} {
        pack $target_lbl -fill both -expand yes -anchor e
    }
}

修正后的完整代码示例 #

frame .top.tab
button .top.tab.btnTab -text "+" -command { bell ; add }
pack .top.tab -side top -fill x -anchor nw
pack .top.tab.btnTab -side right

frame .top.tool
.top.tool configure -relief "raised"
pack .top.tool -side top -fill x -anchor nw

frame .top.panel
.top.panel configure -bg "white"
pack .top.panel -side top -fill both -expand yes -anchor sw

set n 0
# 用数组存储文本变量，避免动态命名变量的麻烦
array set txt {}

proc add {} {
    global n txt

    set txt($n) ""

    entry .top.tool.ent$n -textvar txt($n)
    button .top.tool.btn$n -text "txt$n" -command [list remove $n]
    pack .top.tool.ent$n .top.tool.btn$n -side left

    label .top.panel.lbl$n -text "" -bg "white" -textvar txt($n)
    pack .top.panel.lbl$n -fill both -expand yes -anchor e

    incr n
}

proc remove { number } {    
    foreach lbl [winfo children .top.panel] {
        pack forget $lbl
    }
    set target_lbl ".top.panel.lbl$number"
    if {[winfo exists $target_lbl]} {
        pack $target_lbl -fill both -expand yes -anchor e
    }
}

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