TCL, While / For / Foreach

Example code for While, For

WHILE

package require Tk
set i 0
while {$i < 10} {
button .btn$i -text "Button$i" -command "puts $i"
pack .btn$i
incr i                                                 # 每執行一次就將變數值+1
}

FOR
執行已知次數的迴圈

    set sum 0                                            # $sum 為 0. 儲存 1累加至100的結果.
    for {set i 1} {$i <= 100} {incr i} {     # $i 為 1. i 的值 <= 100. incr 命令 $i 的值累加到 $sum.
incr sum $i
    }
    puts $sum



FOREACH
專為清單設計的迴圈命令

    set list1 [list n ne e se s sw w nw center]

    foreach {item} $list1 {
         pack [label .lbl$item -anchor $item -width 8 -height 8 -text $item -bd 2 -relief groove] -side left
    }

BREAK & CONTINUE
用來改變廻圈的執行流程

break - 強迫結束目前執行中的迴圈
continue - 當作目前迴圈已執行完成, 繼續下一個迴圈.