zoukankan      html  css  js  c++  java
  • Delphi的内存分配和释放

    1 内存分配常见函数

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

  • 相关阅读:
    【BZOJ-1507】Editor 块状链表
    【BZOJ-4456】旅行者 分治 + 最短路
    【BZOJ-3262】陌上花开 CDQ分治(3维偏序)
    【BZOJ-1176&2683】Mokia&简单题 CDQ分治
    【BZOJ-1962】模型王子 DP 猜数问题
    【BZOJ-3786】星系探索 Splay + DFS序
    【BZOJ-1552&3506】robotic sort&排序机械臂 Splay
    【BZOJ-4688】One-Dimensional 矩阵乘法
    【BZOJ-4692】Beautiful Spacing 二分答案 + 乱搞(DP?)
    Java中接口式的匿名内部类的构造方法
  • 原文地址:https://www.cnblogs.com/moonwind/p/4421489.html
Copyright © 2011-2022 走看看