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.

   
   
 
 
 
 
 
 

new动态生成一个指针,初始化指针为空,用dispose释放   getmem申请一块内存,用freemem释放   allocmem从堆中申请内存,并且用#0进行初始化!用freemem释放 Fillchar是Turbo/Borland Pascal的System单元的一个标准过程,它的使用格式是:FillChar(var X; Count: Word; value),它的功能是,把指定变量X在内存段中所占的低Count个字节赋为相同的值value, 其中value是填充的值,只能是Byte、Char或Boolean等单字节类型的值。在Free Pascal中稍加扩展为FillChar(var X; Count: Longint; value), 功能没变。

FillChar(FileData[0],SumLen,#0);数据的第一个数的值是数据的起始地址。

我们能看到以下代码 var pSource,pDest:PChar;      len: integer; .......................//一些代码 Move(pSource,pDest,len); //错误 Move(pSource^,pDest^,len); //正确 看起来确实好像是传值,而不是传地址,但是各位别忘了,这不是C,C++,而是Delphi Object Pascal,所以,绝不能从函数调用的方法判断是传值还是串地址!!必须看函数的 定义,只有定义才能说明是传值还是传地址,再说一遍,这不是C,C++!! 我们看到的函数定义是这样的 procedure Move(const Source; var Dest; Count: Integer); 从定义上看,很清楚,Dest是传地址,而不是传值,那么Source呢,其实大家不太清楚 这里的Const修饰符有两个含义,第一个大家都知道就是Source一常量方式在函数体内, 不可以改变它的值,第二个可能知道的人不多,那就是Source的传递方式和Dest一样, 是传地址!也就是说const和var一样,都是传地址,只不过一个在函数内不允许修改, 另一个是修改后影响调用的变量值 所以Move是传地址,而恰恰不是传值!

使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.  搞了好一会才搞明白其用法.所以想贴出来帮助需要帮助的人. var    s:string;    ps:Pchar;    b:pbyte;    len:integer; begin    s:=edit1.Text; //字符串    ps:=pchar(s); //转成pchar类型,    len:=length(s);//取字符串长度,占用多少字节    getmem(b,len);//申请内存,pchar,pbyte在使用前都必须要申请内存,因为他们是指针.    move(ps^,b^,len);//这里 ps^意思是pchar指向内存数据的第一个字节地址,B^是表示申请内存的第一个字节地址,这样就可以一个一个字节的移到b里去了.    memo1.Text:=pchar(b);//显示.    freemem(b); end; 有些人遇到的困惑是为什么 move(s,b,len)不行呢?同样我也遇到这样的困惑. 看了一样move的函数源码才明白. procedure       Move( const Source; var Dest; count : Integer ); {$IFDEF PUREPASCAL} var   S, D: PChar;   I: Integer; begin   S := PChar(@Source);//取内存地址   D := PChar(@Dest);//取内存地址   if S = D then Exit;   if Cardinal(D) > Cardinal(S) then     for I := count-1 downto 0 do       D[I] := S[I]   else     for I := 0 to count-1 do       D[I] := S[I]; end; 如果直接传入s,   S := PChar(@Source);//取内存地址\  就相当于取的字符串S地址的地址. 如果传入的是ps^ S := PChar(@Source);//取内存地址  就相当于取pchar 所指向字符串实际数据的地址

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值