Question

Delphi XE4 如何将CheckListBox选中的内容添加到ComboBox里面

我现在想将对Access数据进行模糊查询的结果放到ComboBox里面，已经写好的代码是：
procedure TForm1.Edit1Change(Sender: TObject);
begin
CheckListBox1.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select NAME, SCIENTNAME from faoecocrop where NAME like ''%'+Edit1.Text+'%''');
ADOQuery1.Open;

if ADOQuery1.RecordCount > 0 then
CheckListBox1.Visible := True;
begin
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
CheckListBox1.Items.Add(ADOQuery1.FieldByName('NAME').AsString + ',' + ADOQuery1.FieldByName('SCIENTNAME').AsString);
ADOQuery1.Next;
end;
end;
end;
可以实现在左边Edit框内输入关键词，隐藏的CheckListBox出现，里面是含有该关键词的查询结果。现在的问题是，因为我的Access数据库是关于植物的，我要求查询结果显示common name和scientific name，但是在CheckListBox里面common name和scientific name是一项，用逗号隔开，怎样能将两者分别赋给右边的comboBox1和comboBox2呢？求各位高手指教！！

Answer 1

简单的字符串处理 （截取、拷贝、查找）给你个demo （和数据库无关）

效果图