delphi 数据库的问题

Question

怎样实现下面的功能。第一个list1中显示数据库某表中一列的所有值，通过选中一个值，点add按钮，添加到另一个list2中；通过delete按钮把list2中选中的值移除；通过按钮insert把最后list2中的若干值添加到数据库中有代码和具体设置最佳，谢谢大家

Answer 1

    with lv1.Items.Add do
    begin
      Caption := '' ;
      SubItems.Add(XX);  
      SubItems.Add(XX); 
      ....
    end;
lv1.selected.delete

Answer 2

你的list是listbox还是listview?
如果是listboxvar
  Index,i: Integer;
begin
  Index := GetFirstSelected(list1);
  if index<0 then
  begin
    showmessage('尚未选择记录!');
    exit;
  end;
  for i := list1.Count-1 downto 0 do
  begin
    if list1.Selected[i] then
    begin
      list2.Items.Add(list1.Items.Strings[i]);
      list1.Items.Delete(i);
    end;
  end;
end;