注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

隐龙 为了一生的信念

今日默默沉于水,他日飞腾在九天...

 
 
 

日志

 
 

DELPHI内存详解(7)-内存申请和释放  

2012-07-09 13:36:55|  分类: Delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

1 内存分配常见函数

GetMemFreeMemGetMemoryFreeMemoryNewDisposeStrAllocStrDisposeAllocMemSysGetMemSysFreeMem

2 GetMemFreeMemGetMemoryFreeMemory

由于DELPHI的内存管理都知道分配内存的大小,因此在释放内存的时候,只要给指针地址不用给出长度就可以了。另外提倡用GetMemoryFreeMemory来代替GetMemFreeMem,因为FreeMemory会判断指针是否为空。

3 NewDispose

NewDispose是用来管理变体类型内存分配,如变体结构体:

TRecord = record

Text: string;

Value: Integer;

end;

PRecord = ^TRecord;

如果用GetMemFreeMemGetMemoryFreeMemory来释放,会造成Text的内存没有释放,造成内存泄漏。如果用Dispose来释放指针,要加上定义信息,否则造成内存泄漏,正确写法Dispose(PRecord(Point))

4 StrAllocStrDispose

这个函数也是一对,他们分配PChar加一个Cardinal长度,因此一定要用StrDispose释放,否则容易造成4字节的内存泄漏。StrAlloc分配的指针可以使用StrBufSize来获得大小。

5 AllocMem

AllocMem是调用GetMem来分配内存,但是它会把内存全部初始化为#0,因此推荐AllocMem代替GetMemGetMemory。以下写法都是错误的,都会造成字符串没有结尾符。

function SystemPath: string;

begin

SetLength(Result, GetSystemDirectory(nil, 0));

GetSystemDirectory(PChar(Result), Length(Result));

Result := PChar(Result);

end;

function SystemPath: string;

begin

SetLength(Result, GetSystemDirectory(nil, 0));

GetSystemDirectory(PChar(Result), Length(Result));

Result := PChar(Result);

end;

var

SystemPath: PChar;

Len: Cardinal;

begin

Len := GetSystemDirectory(nil, 0);

SystemPath := GetMemory(Len);

GetSystemDirectory(SystemPath, Len)

FreeMem(SystemPath);

end;

6 SysGetMemSysFreeMem

SysGetMemSysFreeMem是上面函数的底层实现,申请的内存不通过DELPHI内存管理器管理,一般不直接使用它们。


  评论这张
 
阅读(737)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018