记录类型中String的释放

最新推荐文章于 2024-08-24 20:22:46 发布

原创最新推荐文章于 2024-08-24 20:22:46 发布 · 642 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#record #string #finalize #手工释放

delphi 专栏收录该内容

2 篇文章

订阅专栏

本文探讨了在处理包含String的记录时，如何在进行内存移动操作时手动释放String资源，以避免内存泄漏。

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

String能自动释放，在进行内存拷贝时需要进行手动释放。可以直接调用Finalize手工释放

如：TGraphicHideTab 记录中声明的Caption：string

  TGraphicHideTab = record
    Image:Integer;
    Data:Integer;
    Size:Integer;       /// 绘制时使用的尺寸
    Caption:string;     /// <--- 记录中有String
  end;

直接内存处理的时候String不会自动处理计数，需要手工处理String。

var 
  FItems:array of TGraphicHideTab;
  FCount:integer;

procedure DeleteItem(AIndex: Integer);
begin
  /// 
  ///  使用内存移动的时候String计数不会改变，因此需要手工处理String的计数
  ///
  if (AIndex >= 0) and (AIndex < FCount) then
  begin
    Finalize(FItems[AIndex]);   // <-- 手工释放Record中的String
    if AIndex < FCount - 1 then
      Move(FItems[AIndex + 1], FItems[AIndex], sizeof(TGraphicHideTab) * (FCount - AIndex - 1));
    dec(FCount);
  end;
end;