delphi - 项目 abc.exe 引发异常类 EListError，并在 dxBar.pas 文件中显示消息“列表索引超出范围 (0)”

Question

我正在将旧的 Delphi 7 代码迁移到 Delphi XE4。我在 Delphi XE4 应用程序中使用 DevExpress 13.1 并使用DevExpress ExpressBars功能。我的 Delphi 7 应用程序正在使用旧版本DevExpress的ExpressBars 5.

在Delphi XE4环境下的dxBar.pas( C:\Program Files (86)\DevExpress VCL\ExpressBar\Sources\dxBar.pas)中，在行

Result := ItemLinks.VisibleItems[0].Control.Height;

我收到运行时错误

Project abc.exe raised exception class EListError with message 'List index out of bounds (0)'

dxBar.pas而在德里 7 环境中也可以正常工作。不知道这里要改什么？与索引 0 相关的更改是否作为较新 Delphi 版本中的索引从 1 开始？这只是我的猜测。

Answer 1

你有这个代码：

Result := ItemLinks.VisibleItems[0].Control.Height;

这个错误：

列表索引超出范围 (0)

该错误告诉您没有带有 index 的项目0。该列表使用从零开始的索引，因此结论是没有可见项目。