超级列表框遍历表项、导入数据

.子程序 _列表框_填充表项
.参数 项目指针, 整数型, , 用“列表框项目 ＝ 指针到列表框项目 (项目指针)”取出内容
.参数 标题指针, 整数型, , 用“写到内存 (新标题, 标题指针, )”这样写入内容
.局部变量 项目, 超级列表框项目
.局部变量 新标题, 文本型
.局部变量 M, 整数型

项目 ＝ 指针到列表框项目 (项目指针)
.如果 (项目.子项索引 ＝ 0)
写到内存 (到文本 (项目.表项索引 ＋ 1), 标题指针, ) ' content
.否则
.如果真 (项目.表项索引 ＋ 1 ≤ 取数组成员数 (域名数组))
写到内存 (域名数组 [项目.表项索引 ＋ 1], 标题指针, ) ' content