子涵例程取数组成员出现次数

简单小例程，抛砖引玉而已，未加入更多冗余代码

.计次循环首 (取数组成员数 (g_aInt) － 1, i)
.如果 (g_aInt [i] ＝ g_aInt [i ＋ 1])
n ＝ n ＋ 1
.否则
.如果真 (n ＞ 0)
Tmp.NowInt ＝ g_aInt [i]
Tmp.Repeat ＝ n ＋ 1
加入成员 (g_MyData, Tmp)
n ＝ 0
.如果真结束

.如果结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (g_MyData), i)
编辑框2.内容 ＝ 编辑框2.内容 ＋ 到文本 (g_MyData [i].NowInt) ＋ “ 出现次数：” ＋ 到文本 (g_MyData [i].Repeat) ＋ #换行符
' 调试输出 (g_MyData [i].NowInt, g_MyData [i].Repeat)
.计次循环尾 ()