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

时间:2022-10-28 20:09:41



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