delphi - Delphi 7 - ListView アイテムをコンボボックスに割り当てる方法

Question

このコードを使用して値を割り当てています。

combobox1.Text:=form1.listview1.Selected.Caption;

しかし、私はこのエラーが発生しています: TListItems を TComboBox に割り当てることはできません

Answer 1

ListView.Itemsaに a を追加することはできませんComboBox.Items(コンパイラーが言ったように、1 つはTListItemsコレクションで、もう 1 つは の子孫でありTStrings、型の互換性はありません)。ListItem選択したのキャプションを に追加できますComboBox.Items。

ComboBox.Items に追加する必要があります。

ComboBox1.Items.Add(ListView1.Selected.Caption);

選択したすべてのアイテムを追加する場合は、ループを使用する必要があります。

var
  Item: TListItem;
begin
  Item := ListView1.Selected;
  while Item <> nil do
  begin
    ComboBox1.Items.Add(Item.Caption);
    Item := ListView1.GetNextItem(Item, sdAll, [isSelected]);
  end;

から にすべての項目を追加したいだけListViewの場合 (既に に表示されているため、ComboBoxこれはかなり無意味に思えますListView):

var
  i: Integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do
    ComboBox1.Items.Add(ListView1.Items[i].Caption);
end;