Question

我希望能够在tcl / tk中的输入小部件中输入一个数字，并能够将此数字乘以1000。问题是当我这样做时我总是得到0。我假设这个数字是一个字符串，需要以某种方式进行转换。

有人可以告诉我该怎么做吗？

Answer 1

在tcl / tk中，根据上下文，变量可以解释为字符串和数字。这是在后台检查的。例如：

set x 10
append x 0
set y [expr $x+10]

x首先解释为字符串，然后解释为整数。如果要访问条目的值，可以使用-textvariable选项：

entry .e -textvariable ::v
pack .e

v必须是全局变量。它等于条目中的值。如果您写：

set ::v 10

条目小部件中的显示也会更改。您可以这样写：

set y [expr 1000*$v]