1

リストビューのすべてのアイテムとサブアイテムを取得したいのですが、取得するのは「TlistItem」だけです。

これが私のコードです：

procedure TFrameAnalyzer.AddEntry(opcode:word;data:Array of byte;direction:byte);
begin
  MessageBox(0,PChar(sListView1.Items.Item[4].ToString),'',0);
end;

アイテムの名前を文字列として取得し、その2つのサブアイテムの名前を取得するにはどうすればよいですか？

4

1 に答える 1

5

名前がないので商品名はわかりません。それはCaptionが、とSubItemsタイプのプロパティを持っていますTStrings。これらはすべて、Delphi のドキュメント BTW で簡単に見つけることができます。クラスをTListItem調べます。TListItems

だからあなたは次のようなことができます

procedure TFrameAnalyzer.AddEntry(opcode:word;data:Array of byte;direction:byte);
var
  Item: TListItem;
  s: string;
begin
  Item := sListView1.Items.Item[4];
  s := Item.Caption + #13#10
    + '  ' + Item.SubItems[0] + #13#10
    + '  ' + Item.SubItems[1];
  MessageBox(0, PChar(s), nil, 0);
end;

すべてのエラー処理が省略されています。最初にインデックスが有効であることを確認せずに、この方法で配列プロパティにアクセスしないでください。

于 2009-07-18T19:20:09.777 に答える