Delphi常用内存管理函数

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

1.New、Dispose、GetMem、FreeMem

New

procedure New(var P: Pointer);:创建一个新的动态变量,并把指针P指向这个新创建的变量。分配的内存大小由P指针表示的类型决定。

Dispose

procedure Dispose(var P: Pointer);:用来释放一指针变量所占用的内存地址。如使用{$I+},会产生一个EInvalidPointer异常。

Getmem

procedure GetMem(var P: Pointer; Size: Integer);:为一指针分配一定大小的地址空间。

FreeMem

procedure FreeMem(var P: Pointer[; Size: Integer]);:释放某一指针在内存中用的地址空间。

procedure TForm1.ButtonClick1(Sender: TObject);
var
P:PString;
begin
getmem(p,1256); //为指针分配指定内存大小的指针
p^:='MingRiSoft';
edit1.Text := p^;
dispose(p); //释放指针地址
edit2.Text := P^;
end;

在创建指针和分配内存地址时,优先使用NewDispose

 

2.AllocMem、ReallocMem、SysFreeMem

AllocMem

function AllocMem(Size: Cardinal): Pointer;:用于在堆中分配一块内存区域,并初始化每一字节为0。其返回值为一个指向堆中已分配内存的指针。

RellocMem

procedure ReallocMem(var P: Pointer; Size: Integer);:用于重新分配一个动态变量。这里需要讨论几种情况:

1、如果P为nil并且Size为0,则RellocMem不分配内存;

2、如果P为nil但Size不为0,则RellocMem分配内存的过程等同于GetMem;

3、如果P不为nil但size为0,则RellocMem将地址引到P并并设置P为nil。则此过程就类似于FreeMem的操作。

SysFreeMem

function SysFreeMem(P: Pointer): Integer;:释放指针指向的内存空间。其返回值为0;否则返回非0。

procedure TForm1.Button1Click(Sender:TObject);
var
i : Pshortstring;
begin
i:= AllocMem(256); //在堆中分配内存
i^ := 'aaa';
ReallocMem(i,256); //重新分配内存
SysFreeMem(i); //释放内存
end;

 

3. 其它内存函数

SysReallocMem

function SysReallocMem(P: Pointer; Size: Integer): Pointer;:用于重新为变量分配内存区域。主要用于调节动态分配内存的空间大小。

Finalize

procedure Finalize( var V [; Count: Integer] );:用来动态分配变量的内存地址,这些分配的内存空间由其它方法而不是Dispose方法来释放空间。