Delphi结构中使用String时遇到的内存泄露问题（没有利用String的引用计数自动销毁字符串的功能）

先定义一个结构：

TUserInfo = record
UserID: Integer; // 用户编号
UserName: string; // 用户名
end;

然后编写如下代码：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
User.UserName := StringOfChar('A', RandomRange(16*1024, 64*1024));
FillChar(User, SizeOf(User), 0);
end;

然后开启设置Timer间隔为20ms, 开启任务管理器就会发现内存暴涨，很显然结构中UserName使用的内存未被正确释放。

改成下面的代码就不会出现上述情况：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
User.UserName := StringOfChar('A', RandomRange(16*1024, 64*1024));
User.UserName := '';
end;

http://blog.csdn.net/missmecn/article/details/7097660

巴特西

Delphi结构中使用String时遇到的内存泄露问题（没有利用String的引用计数自动销毁字符串的功能）

最新文章

热门文章