sqlite3 内存持续增加_sqlite3 内存泄漏问题

.版本 2

.支持库 sqlite3

.支持库 iext

.支持库 spec

.子程序 采集数据刷新, 整数型

.局部变量 数据库, Sqlite数据库

.局部变量 记录集, Sqlite记录集

.局部变量 总记录, 整数型

.局部变量 总页码, 整数型

.局部变量 当前页, 整数型

.局部变量 页码长, 整数型

.局部变量 局_计次, 整数型

.局部变量 局_表项, 整数型

.局部变量 局_临时, 文本型

.如果真 (窗口_主窗口.透明标签_刷新采集记录_等待.可视 ＝ 真)

调试输出 (“采集数据正在刷新中...”)

返回 (0)

.如果真结束

页码长 ＝ 100

当前页 ＝ 窗口_主窗口.采集数据_当前页码

窗口_主窗口.透明标签_刷新采集记录_等待.可视 ＝ 真

窗口_主窗口.超级列表框_群|发记录.全部删除 ()

处理事件 ()

' -----------------------------------------------

数据库.打开 (全_程序目录 ＋ “/data.db”, 假)

记录集 ＝ 数据库.取记录集 (“SELECT COUNT(1) AS 总数 FROM record WHERE 权重=0”)

记录集.打开 ()

记录集.到下一记录 ()

总记录 ＝ 记录集.读字段整数值 (“总数”, )

总页码 ＝ 选择 (总记录 ÷ 页码长 ％ 1 ＞ 0, 取整 (总记录 ÷ 页码长) ＋ 1, 总记录 ÷ 页码长)

记录集.关闭 ()

' -----------------------------------------------

记录集 ＝ 数据库.取记录集 (“SELECT * FROM record WHERE 权重=0 ORDER BY 编号 DESC LIMIT ” ＋ 到文本 (页码长 × (当前页 － 1)) ＋ “,” ＋ 到文本 (页码长))

记录集.打开 ()

记录集.到下一记录 ()

.计次循环首 (记录集.取记录个数 (), 局_计次)

' #此处有记录集有内存泄漏的情况,暂时无解决办法[待处理]

局_表项 ＝ 窗口_主窗口.超级列表框_群|发记录.插入表项 (, , , , , )

窗口_主窗口.超级列表框_群|发记录.置图片 (局_表项, 0, 0)

窗口_主窗口.超级列表框_群|发记录.置标题 (局_表项, 0, 记录集.读字段文本值 (“编号”, ))

窗口_主窗口.超级列表框_群|发记录.置标题 (局_表项, 1, 记录集.读字段文本值 (“权重”, ))

窗口_主窗口.超级列表框_群|发记录.置标题 (局_表项, 2, 记录集.读字段文本值 (“标题”, ))

窗口_主窗口.超级列表框_群|发记录.置标题 (局_表项, 3, “-”)

窗口_主窗口.超级列表框_群|发记录.置标题 (局_表项, 4, 时间_时间戳转文本 (记录集.读字段文本值 (“时间”, )))

窗口_主窗口.超级列表框_群|发记录.置标题 (局_表项, 5, “天猫”)

窗口_主窗口.超级列表框_群|发记录.置标题 (局_表项, 6, 记录集.读字段文本值 (“来源”, ))

处理事件 ()

.计次循环尾 ()

记录集.关闭 ()

数据库.关闭 ()

' -----------------------------------------------

窗口_主窗口.标签_采集记录页码信息.标题 ＝ “共计 ” ＋ 到文本 (总记录) ＋ “ 条记录 共” ＋ 到文本 (总页码) ＋ “页”

窗口_主窗口.组合框_采集记录选择页码.清空 ()

.计次循环首 (总页码, 局_计次)

窗口_主窗口.组合框_采集记录选择页码.加入项目 (“第 ” ＋ 到文本 (局_计次) ＋ “ 页”, )

.计次循环尾 ()

窗口_主窗口.组合框_采集记录选择页码.现行选中项 ＝ 当前页 － 1

窗口_主窗口.透明标签_刷新采集记录_等待.可视 ＝ 假

' 优化内存 ()

返回 (0)