delphi申请和释放内存


本文整理自网络,侵删。

 
内存分配常见函数
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内存管理器管理,一般不直接使用它们。

 

System.GetMem、System.FreeMem - 申请和释放内存
如果只为单个指针分配内存, 和 New 和 Dispose 是一样的; 与之不同的是: GetMem 可以申请连续的多个内存块.

举例:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

Type
  TMyRec = record     {定义结构}
    name: string[8];
    age : Word;
  end;
  PMyRec = ^TMyRec;   {定义结构指针}

var
  pr: PMyRec;

procedure TForm1.FormCreate(Sender: TObject);
begin
  {同时分配 3 个结构的内存; 此时的三个结构在内存中是连续的}
  GetMem(pr, SizeOf(TMyRec) * 3);

  {此时 pr 指向第一个结构, 赋值}
  pr.name := '张三';
  pr.age := 11;

  {让 pr 指向第二个结构, 赋值}
  Inc(pr);
  pr.name := '李四';
  pr.age := 22;

  {让 pr 指向第三个结构, 赋值}
  Inc(pr);
  pr.name := '王五';
  pr.age := 33;

  {先回到第一个结构, 然后依次读取}
  Dec(pr, 2);
  ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {张三 11 岁}
  Inc(pr);
  ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {李四 22 岁}
  Inc(pr);
  ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {王五 33 岁}

  {从第一个结构, 清除 3 个结构大小的内存, 这样就删除了上面三个结构}
  Dec(pr, 2);
  FreeMem(pr, SizeOf(pr^) * 3); {SizeOf(TMyRec)  和 SizeOf(pr^) 是一样的}
end;

end.

相关阅读 >>

Delphi 弹窗显示sql字符串

Delphi图像数据压缩解压缩实例

Delphi 工程判断内存溢出reportmemoryleaksonshutdown := true;

Delphi求数组最大\最小值

Delphi 如何通过代码控制打开键盘数字锁定numlock

Delphi中的instrrev函数(倒找文本)

Delphi 查找一个特定的exe是否在内存中运行

Delphi 查看字符串在不同编码(ascii、unicode、utf7、utf8、default、bigendianunicode)下的 hex

Delphi使用sqlite数据库时的中文路径问题

Delphi postmessage 虚拟按键

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...