摘要: proc ElementExists { arrayname element } {#-----------------------------------------------------# Test if a given element name exists in an array# Return 1 if array element exists, otherwise return 0 \# arrayname Name of array# element Name of element# if { ![array exists $arrayname] } { return 0 } 阅读全文
posted @ 2011-04-11 21:27 greencolor 阅读(220) 评论(0) 推荐(0)