2

古い Delphi 7 コードを Delphi XE4 に移行しています。Delphi XE4 アプリケーションで DevExpress 13.1 を使用し、DevExpress ExpressBars機能を使用しています。私の Delphi 7 アプリケーションは、古いバージョンのDevExpresshas ExpressBars 5.

C:\Program Files (86)\DevExpress VCL\ExpressBar\Sources\dxBar.pasDelphi XE4 環境の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 環境で正常に動作している間。ここで何を変更すればよいかわかりませんか？新しい Delphi バージョンのインデックスは 1 から始まるため、変更はインデックス 0 に関連していますか? それは私の推測です。

4

1 に答える 1

3

あなたはこのコードを持っています：

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

そしてこのエラー：

リスト インデックスが範囲外です (0)

このエラーは、 index の項目がないことを示しています0。リストはゼロベースのインデックスを使用しているため、結論として、表示される項目はありません。

于 2013-11-11T07:57:26.187 に答える