delphi中Dispose内存释放及字符串内存管理

本文通过实例探讨了在Delphi中使用New分配的结构体内存如何通过Dispose释放,特别是涉及字符串时可能出现的内存泄漏问题。作者指出,结构体中的动态内存管理类型如字符串在Dispose时需要正确处理,否则可能导致内存无法释放。通过对比不同的Dispose方式,揭示了指定结构体类型的重要性,以确保内存完全释放。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

          在最近使用Delphi开发的项目中,出现了内存泄露的问题,经排查是由于使用New申请的结构体内存用Dispose释放不完全造成的。网上会搜到如下的解释。

          delphi设计的 dispose 释放内存时,只是标记这部分内存可以再用来被 new 等函数分配,并不是把从系统申请到的内存归还给操作系统,只在程序结束时,才全部释放给操作系统。

        其实,上面的解释是不正确的。用New申请的结构体内存,在使用Dispose释放时,会将结构体所占用的内存立即释放掉。但如果结构体中使用了Delphi动态内存管理的数据类型(如字符串String,动态数组等),如果Dispose使用不正确(下文会做详细说明),会造成这些Delphi动态管理的内存不能释放,最终导致了内存泄露。为了验证该问题编写了下面的代码。

unit untMain;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PsAPI, StdCtrls, TLHelp32;


type
  PMyRec = ^TMyRec;

  TMyRec = record
    IntMember: Integer;
    FloatMember: Double;
    StrMember: string;
  end;


  PStrRec = ^StrRec;
  StrRec = packed record
    refCnt: Longint;
    length: Longint;
  end;


  TMyList = class(TList)
  private
    FAdvanced: boolean;
  protected
    procedure Notify(Ptr: Pointer; Action: TListNotification); override;
  end;


  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    mmoLog: TMemo;
    btn7: TButton;
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
  private
    { Private declarations }
    FLst: TMyList;
    procedure AddLog(Content: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  GVarS1, GVarS2: string;

implementation


function GetProcessMemUse(PID: Cardinal): Cardinal;
var pmc: PPROCESS_MEMORY_COUNTERS; //uses psApi
    ProcHandle: HWND;
    iSize: DWORD;
begin
  Result := 0;
  iSize := SizeOf(_PROCESS_MEMORY_COUNTERS);
  GetMem(pmc, iSize);
  try
    pmc^.cb := iSize;
    ProcHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID);
    if GetProcessMemoryInfo(ProcHandle, pmc, iSize) then
      Result := pmc^.WorkingSetSize;
  finally
    FreeMem(pmc);
  end;
end;
 
function GetCurrentMemUse: Cardinal;
begin
  Result := GetProcessMemUse(GetCurrentProcessId);
end;


{$R *.dfm}


procedure TForm1.btn2Click(Sender: TObject);
var idx: Integer;
    dMS1, dMS2: Double;
    pRec: PMyRec;
begin
  dMS1 := GetCurrentMemUse / 1024;
  AddLog(Format('开始申请100000个结构体内存(不分配字符串),当前进程占用内存%.2fKB,结构体所占内存为%.2fKB !', [dMS1, SizeOf(

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值