易语言纯自绘实现表格代码编辑框

' 判断标题表行如果存在的话是否应该被删除 如果不删除则移动到最后一行 终止行号-1
.变量循环首 (起始行号, 终止行号, 1, i)
' 调试输出 (i, 取文本第四字节 (标签页 [标签页序号].代码array [i]))
.如果真 (取文本首字节 (标签页 [标签页序号].代码行EX [i].代码行array) ＝ #特殊代码头 且 取文本第二字节 (标签页 [标签页序号].代码行EX [i].代码行array) ≥ #表格起始编号 且 取文本第四字节 (标签页 [标签页序号].代码行EX [i].代码行array) ＝ #表头)
' 获取当前表行类型的终止行号
j ＝ i
表行类型 ＝ 取文本第三字节 (标签页 [标签页序号].代码行EX [i].代码行array)
.判断循环首 (真)
j ＝ j ＋ 1
.如果真 (j ≥ 标签页 [标签页序号].代码数据.代码数量)
跳出循环 ()
.如果真结束
.如果真 (取文本首字节 (标签页 [标签页序号].代码行EX [j].代码行array) ≠ #特殊代码头 或 取文本第三字节 (标签页 [标签页序号].代码行EX [j].代码行array) ≠ 表行类型)
j ＝ j － 1
跳出循环 ()
.如果真结束

.判断循环尾 ()
.如果真 (j ＞ 终止行号)
标签页 [标签页序号].代码行EX [终止行号] ＝ 标签页 [标签页序号].代码行EX [i]
终止行号 ＝ 终止行号 － 1
.如果真结束

.如果真结束
.如果真 (i ≥ 终止行号)
跳出循环 ()
.如果真结束

.变量循环尾 ()