Delphi的内存分配和释放

1 内存分配常见函数

GetMem和FreeMem、GetMemory和FreeMemory、New和Dispose、StrAlloc和StrDispose、AllocMem、SysGetMem和SysFreeMem。

2
GetMem和FreeMem、GetMemory和FreeMemory

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

3 New和Dispose

New和Dispose是用来管理变体类型内存分配，如变体结构体：

TRecord
= record

Text:
string;

Value:
Integer;

end;

PRecord
= ^TRecord;

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

4 StrAlloc和StrDispose

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

5 AllocMem

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

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 SysGetMem和SysFreeMem

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