zoukankan      html  css  js  c++  java
  • delphi 内存申请和释放

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

  • 相关阅读:
    C/C++编译过程
    Struts2入门01
    NET CORE 微软官方说明链接
    PL/SQL控制语句(二、循环控制语句)
    PL/SQL控制语句(一、分支控制语句)
    PL/SQL数据类型
    PL/SQL变量的作用域和可见性
    PL/SQL变量和类型
    CopyWebpackPlugin 的使用
    flex
  • 原文地址:https://www.cnblogs.com/spiritofcloud/p/3976159.html
Copyright © 2011-2022 走看看