声明:本文由科创论坛smrken会员发表,转载请注明出处,谢谢!
环境:delphi 7
问题动作:procedure XXXXXXXXXXXadSectionValues(const Section: string; Strings: TStrings); 问题描述: 读取某节点下的全部键和值,当内容较多时出现读不完的情况
网上类似的问题:
XXXXXXXXXXXXXXXXXXX/335204019/item/02eb2f45c3628714896d1086 一开始我没有看其源码,直接搜索了,只找到类似的疑问! 然后我就翻阅其源码,发现该源码单元比较简短,正好...
问题原因追查源码:
ReadSectionValues主要调用了ReadSection,而ReadSection的设计有缺陷下面贴出其原源代码
//******************
const //声明:本文由科创论坛smrken会员发表,转载请注明出处,谢谢!
BufSize = 16384;
主要原因是内存不够,而又没有根据情况重新分配一个适合的内存大小,
其原源码只是简单检查起是否读取失败!
API参考连接:
XXXXXXXXXXXXXXXXXXXXXX/view/XXXXXXXXXXm 解决办法,将这个XXXXXXXXXXXs文件直接添加到工程,然后直接修改成如下样子,就可以不改动其余东西,解决这个问题! //******************
检查返回值,若指示内存不够容纳,则使用ReallocMem来重新分配
//声明:本文由科创论坛smrken会员发表,转载请注明出处,谢谢!
谢谢收听, 全文完.
200字以内,仅用于支线交流,主线讨论请采用回复功能。