Delphi2009 泛型容器遍历超界问题
今天用TDictionary,发现居然一个成员的集合遍历里有2次。。。。就是下面简单的遍历
var
LPair : TPair<Integer,TForm>;
begin
for LPair in FFormDictionary do
begin
TForm(LPair.Value).free;
end;
导致FFF0006C的内存溢出!,网上搜索了一下,解决方法如下:
打开Generics.Collections单元,
#1. 将1679行 ”inherited;”改为: inherited Create;
#2. 修改三处(第1596行、第1631行、第1666行)“while FIndex < Length(FDictionary.FItems) do”为 while FIndex < Length(FDictionary.FItems) - 1 do
具体的分析可以借鉴:http://www.52delphi.com/list.asp?ID=760
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· 新年开篇:在本地部署DeepSeek大模型实现联网增强的AI应用
· DeepSeek火爆全网,官网宕机?本地部署一个随便玩「LLM探索」
· Janus Pro:DeepSeek 开源革新,多模态 AI 的未来
· 上周热点回顾(1.20-1.26)
· 【译】.NET 升级助手现在支持升级到集中式包管理