当前位置：文江博客话题详情

在单元破坏调试信息中通用定义

发布于 2024-09-27 05:07:07 字数 670 浏览 1 评论 0原文

这一定是 Delphi 的 bug...

我有一个单元，它是我的持久性框架的基础。在该单元中，我有一个用于所有域对象的基类、一个列表类和一个通用列表类。

就在最近，我注意到当我在调试时进入单元时，执行会跳转到文件中比应有的位置更靠下的位置......也许四到五行。重新排序文件没有什么区别。该代码还会生成访问冲突，但仅在我对其进行调试时才会发生。

我试图找出这个问题的原因...我想到了几件事，比如调试器中的一些代码注入（例如这个 logitec 网络摄像头驱动程序错误），或者调试信息与我的设备源不同步（例如，dcu 是从某些旧源中提取的）。

最后，我启动了一个安装了干净的 Windows + Delphi 的虚拟机，仅获取测试该单元所需的内容，并创建了一个小型 DUnit 项目来测试它。同样的问题。

然后我开始一次一个地从设备中移除一些东西，直到它起作用为止。唯一有区别的是当我删除通用列表类时。

还有其他人看到这个问题吗？有谁知道如何解决它？

预先感谢，

更新：将通用添加回设备会使问题再次出现，因此这不是陈旧的 DCU 的问题。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

云胡 2024-10-04 05:07:07

您是否确保相关单元的所有行都以 CR LF 结尾？调试器不能只处理 CR 或 LF，而编辑器可以。 Notepad++、TextPad 等可以显示是否存在混合物。在[Windows]记事本中加载并重新保存即可解决。

回复收藏 0 原文

等待我真够勒 2024-10-04 05:07:07

最后，我发现唯一有效的解决方案是将通用列表移出该单元。

更新 2011-08-03 为了更好地充实我的解决方案：

我在我的 Domain 单元中使用我的基 TDomainObject 定义了通用列表基类类和非通用版本。

为了解决这个问题，我将泛型移到了第二个 Domain.Generics 单元中，这为我解决了问题。

所以：

unit Domain;

interface 

type
  TDomainObject = class
    //blah de blah
  end;

  TDomainObjectList = class (TDomainObject)
    //more stuff
  end;

  TDomainListEnumerator = class
    //etc
  end;

并且：

unit Domain.Generics;

interface

type

  TDomainObjectList<T: TDomainObject> = class (TDomainObjectList)
    //stuff
  public
    property Items[AIndex: integer]: T read GetItem write SetItem;

    type
      TEnumerator = class (TDomainListEnumerator)
      public
        function GetCurrent: T;
        property Current: T read GetCurrent;
      end;

  public
    function GetEnumerator: TEnumerator;

  end;

In the end, the only solution that I could find that worked was to move the generic list out of the Unit.

Update 2011-08-03 To better flesh out my solution:

I had my generic list base class defined in my Domain unit with my base TDomainObject class and a non-generic version.

To fix the problem, I moved the generic into a second Domain.Generics unit which resolved the problem for me.

So:

unit Domain;

interface 

type
  TDomainObject = class
    //blah de blah
  end;

  TDomainObjectList = class (TDomainObject)
    //more stuff
  end;

  TDomainListEnumerator = class
    //etc
  end;

And:

unit Domain.Generics;

interface

type

  TDomainObjectList<T: TDomainObject> = class (TDomainObjectList)
    //stuff
  public
    property Items[AIndex: integer]: T read GetItem write SetItem;

    type
      TEnumerator = class (TDomainListEnumerator)
      public
        function GetCurrent: T;
        property Current: T read GetCurrent;
      end;

  public
    function GetEnumerator: TEnumerator;

  end;

回复收藏 0 原文