推荐订阅源

Delphi5和Delphi7属性编辑器内存泄漏问题的解决

问题：

用 Delphi5 测试一个项目时用到了 DsgnIntf.pas 单元。运行后提示内存泄漏。查看项目代码，没有发现泄漏点。

FastMM4 显示的内存泄漏报告提示与 DsgnIntf.pas 单元有关，新建一个测试项目，引用 DsgnIntf.pas 单元，编译运行，没有提示内存泄漏。

在 initialization 初始化段注册几个属性编辑器，编译运行，果然提示内存泄漏，详细报告内容如下：

该内存块分配于线程 0xB10, 当时的堆栈跟踪(返回地址):

402962 [System][@GetMem]

40477E [System][@New]

446105 [DsgnIntf.pas][DsgnIntf][RegisterPropertyEditor][3295]

446364 [testMemory.pas][testMemory][RegPropEdit][27]

4463F1 [testMemory.pas][testMemory][initialization][37]

40397C [System][InitUnits]

4039D2 [System][@StartExe]

40648D [SysInit][@InitExe]

446594 [E:\Delphi\zproplst\testMem.dpr][testMem][initialization]

76D8336A [BaseThreadInitThunk]

776A9902 [RtlInitializeExceptionChain]

查看 RegisterPropertyEditor 函数，关键代码为一个指针申请了内存，加入到 ComponentClassList 中，ComponentClassList 是一个 TList，在单元的 finalization 终止化段释放了，但没有相关代码释放每个内部项的内存。同样 PropertyMapperList 也存在这样的问题。

解决方法：

复制 DsgnIntf.pas 单元到测试项目的目录中，在该单元最后加入两个函数。

procedure DisposePropertyClassList;

var

  i: Integer;

begin

  if PropertyClassList = nil then

    Exit;

    for i := 0 to PropertyClassList.Count - 1 do

    Dispose(PropertyClassList[i]);

  end;

procedure DisposePropertyMapperList;

var

  i: Integer;

begin

  if PropertyMapperList = nil then

    Exit;

    for i := 0 to PropertyMapperList.Count - 1 do

    Dispose(PropertyMapperList[i]);

  end;

在 finalization 终止化段开始插入这两个函数。最终 finalization 终止化段如下：

finalization

  DisposePropertyClassList; //uu,添加，原来只是释放了list，没有释放内部项的内存

  DisposePropertyMapperList; //uu,添加，原来只是释放了list，没有释放内部项的内存

  FreeAndNil(EditorGroupList);

  FreeAndNil(PropertyClassList);

  FreeAndNil(ComponentClassList);

  FreeAndNil(PropertyMapperList);

  FreeAndNil(InternalPropertyCategoryList);

再次编译运行测试项目，没有发现内存泄漏。看来手工分配内存一定要注意释放，连专业的程序员也难免失误。发布这段内容，希望能帮助需要使用 DsgnIntf.pas 单元的开发者。

后记：

再把项目用 Delphi7 编译试试，结果也发现内存泄漏。Delphi7 使用了不同的方法注册属性编辑器，但仍然用了几个List记录相关信息，相关代码移到了 DesignEditors.pas 单元。这个单元定义了一个函数 procedure FreeEditorGroup(Group: Integer); 。这个函数释放了这几个List的内部项。可是下了断点后，没有地方运行这个函数。看一下函数的内容，竟然发现了两个严重问题，1、没有判断List是否初始化就使用List，2、没有释放List本身。

复制 DesignEditors.pas 单元到测试项目的目录中，在该单元最后加入一个函数。

procedure FreeList;

var

  I: Integer;

  P: PPropertyClassRec;

  C: PComponentClassRec;

  M: PPropertyMapperRec;

  SelectionDef: TSelectionEditorDefinition;

begin

  // Release all property editors associated with the group

  if PropertyClassList <> nil then

    begin

      I := PropertyClassList.Count - 1;

      while I > -1 do

      begin

        P := PropertyClassList[I];

        // if P.Group = Group then

        begin

          PropertyClassList.Delete(I);

          Dispose(P);

        end;

        Dec(I);

      end;

      FreeAndNil(PropertyClassList);

    end;

    // Release all component editors associated with the group

    if ComponentClassList <> nil then

      begin

        I := ComponentClassList.Count - 1;

        while I > -1 do

        begin

          C := ComponentClassList[I];

          // if C.Group = Group then

          begin

            ComponentClassList.Delete(I);

            Dispose(C);

          end;

          Dec(I);

        end;

        FreeAndNil(ComponentClassList);

      end;

      // Release all property mappers associated with the group

      if PropertyMapperList <> nil then

        begin

          for I := PropertyMapperList.Count - 1 downto 0 do

          begin

            M := PropertyMapperList[I];

            // if M.Group = Group then

            begin

              PropertyMapperList.Delete(I);

              Dispose(M);

            end;

          end;

          FreeAndNil(PropertyMapperList);

        end;

        // Release all selection editors associated with the group

        if SelectionEditorDefinitionList <> nil then//uu,TObjectList，应该自己能释放内部对象

          begin

            for I := SelectionEditorDefinitionList.Count - 1 downto 0 do

            begin

              // SelectionDef := SelectionEditorDefinitionList[I];

              // if SelectionDef.FGroup = Group then

              SelectionEditorDefinitionList.Delete(I);

            end;

            FreeAndNil(SelectionEditorDefinitionList);

          end;

          // Notify everyone else that have similar registration lists that the group

          // is being unloaded.

          if Assigned(GroupNotifyList) then

            // for I := GroupNotifyList.Count - 1 downto 0 do

            // TGroupChangeProc(GroupNotifyList[I])(Group);

            FreeAndNil(GroupNotifyList); //内部对象不是在这里创建的，不用释放，释放自己就可以

            // Free the group ID for use by another group

            // if (Group >= 0) and (Group < EditorGroupList.Size) then

            // EditorGroupList[Group] := False;

            if EditorGroupList <> nil then

              FreeAndNil(EditorGroupList);

            end;

在 finalization 终止化段开始插入这个函数，其他内容不变。编译。。。提示 CreateResFmt 函数没有相应的重载形式！看了一下该函数的定义，应该可以被调用，检查工程选项，发现 Compliler 页的 Typed @ operator 打开了。关闭这个选项，再编译。。。运行。。。关闭。没有发现内存泄漏。

另外需要注意一点：Delphi7 使用了接口技术调用属性编辑器，Delphi5 的项目转 Delphi7 除了要把一些对象参数改为接口参数外，还要及时清理接口的引用。