DBGridの内容をComboboxへ反映 (ID:37342)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >comboboxへの反映ができません。 >combobox1.text := DBGrid.field[1].asString; procedure TForm1.Button1Click(Sender: TObject); var li_Index: Integer; begin li_Index := ComboBox1.ItemIndex; if (li_Index >= 0) then begin ComboBox1.Items[li_Index] := 'テスト'; ComboBox1.ItemIndex := li_Index; end else begin ComboBox1.ItemIndex := ComboBox1.Items.Add('テスト'); end; end; こんなこと？