程序批量保存组件状态 打开跟关闭的时候一样

打开的时候跟关闭的时候一样，程序使用读写配置项的方法实现批量保存组件状态。

length ＝ c.取配置项名 (“组合框”, 文本型)
.计次循环首 (length, i)
h ＝ 寻找组件 (保存容器, 文本型 [i], “组合框”, , )
.如果真 (取找到组件数目 (h) ≠ 0)
组合框 ＝ 取所找到组件 (h, 0)
组合框.清空 ()
列表数据行 ＝ 分割文本 (c.读配置项 (“组合框”, 文本型 [i] ＋ “list”), “[>||||<]”, )
.计次循环首 (取数组成员数 (列表数据行), j)
列表数据列 ＝ 分割文本 (列表数据行 [j], “[>----<]”, )
组合框.加入项目 (列表数据列 [1], 到数值 (列表数据列 [2]))
.计次循环尾 ()
组合框.现行选中项 ＝ 到数值 (c.读配置项 (“组合框”, 文本型 [i] ＋ “index”))
组合框.内容 ＝ c.读配置项 (“组合框”, 文本型 [i])
.如果真结束
清除组件寻找句柄 (h)
.计次循环尾 ()

清除组件寻找句柄 (h)
h ＝ 寻找组件 (保存容器, , “选择列表框”, , )
length ＝ 取找到组件数目 (h)
.计次循环首 (length, i)
选择列表框 ＝ 取所找到组件 (h, i － 1)
列表数据 ＝ “”
.计次循环首 (选择列表框.取项目数 (), i)
列表数据 ＝ 列表数据 ＋ 选择列表框.取项目文本 (i － 1) ＋ “[>----<]” ＋ 到文本 (选择列表框.取项目数值 (i － 1)) ＋ “[>----<]” ＋ 选择 (选择列表框.是否被选中 (i － 1), “1”, “0”) ＋ “[>||||<]”
.计次循环尾 ()
c.写配置项 (“选择列表框”, 取组件名称 (选择列表框), 列表数据)
.计次循环尾 ()