[Delphi]内存分配和释放 内存操作函数(4): 清空与填充内存

1 内存分配常见函数

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

2GetMem和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。以下写法都是错误的，都会造成字符串没有结尾符。

FillMemory、ZeroMemory 一目了然的两个函数, 但其实它们都是调用了 FillChar;

清空不过就是填充空字符(#0: 编号为 0 的字符), 说来说去是一回事.

为了下面的测试, 先写一个以十六进制方式查看内存的函数:

function GetMemBytes(var X; size: Integer): string;

var

pb: PByte;

i: Integer;

begin

pb := PByte(X);

for i := 0 to size - 1 do

begin

Result := Result + IntToHex(pb^, 2) + #32;

Inc(pb);

end;

end; {GetMemBytes end}

//测试:

var

p1: PAnsiChar;

p2: PWideChar;

s1: AnsiString;

s2: UnicodeString;

begin

p1 := 'ABCD';

p2 := 'ABCD';

s1 := 'ABCD';

s2 := 'ABCD';

ShowMessage(GetMemBytes(p1,4)); {41 42 43 44}

ShowMessage(GetMemBytes(p2,8)); {41 00 42 00 43 00 44 00}

ShowMessage(GetMemBytes(s1,4)); {41 42 43 44}

ShowMessage(GetMemBytes(s2,8)); {41 00 42 00 43 00 44 00}

end;

测试 FillMemory、ZeroMemory、FillChar 三个填充函数:

const

num = 10;

var

p: PChar;

begin

p := StrAlloc(num);

ShowMessage(GetMemBytes(p, num)); {从结果看出 StrAlloc 没有初始化内存}

FillMemory(p, num, Byte('A'));

ShowMessage(GetMemBytes(p, num)); {41 41 41 41 41 41 41 41 41 41}

ZeroMemory(p, num);

ShowMessage(GetMemBytes(p, num)); {00 00 00 00 00 00 00 00 00 00}

FillChar(p^, num, 'B');

ShowMessage(GetMemBytes(p, num)); {42 42 42 42 42 42 42 42 42 42}

StrDispose(p);

end;

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内存管理器管理，一般不直接使用它们。

此时, 我想到一个问题:

GetMem 和 GetMemory 没有初始化内存; AllocMem 会初始化内存为空, 那么

ReallocMem、ReallocMemory 会不会初始化内存?

测试一下(结果是没有初始化):

{测试1}

var

p: Pointer;

begin

p := GetMemory(3);

ShowMessage(GetMemBytes(p, 3));

ReallocMem(p, 10);

ShowMessage(GetMemBytes(p, 10)); {没有初始化}

FreeMemory(p);

end;

{测试2}

var

p: Pointer;

begin

p := AllocMem(3);

ShowMessage(GetMemBytes(p, 3));

ReallocMem(p, 10);

ShowMessage(GetMemBytes(p, 10)); {没有初始化}

FreeMemory(p);

end;

另外: FillMemory、ZeroMemory 的操作对象是指针, 而 FillChar 的操作对象则是实体.
http://www.cnblogs.com/del/archive/2008/11/14/1333425.html