我想在combobox1选择显示：编号=姓名，然后插入数据库只插入其中的编号，如何实现

Question

rt

Answer 1

s := '编号=姓名';iPos := Pos('=', s); //取等号的位置s := Copy(s, 1, iPos - 1);// 现在， s = '编号'

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
 combobox1.Items.Add('编号=姓名');
 showmessage(combobox1.Items.Values['编号']);
end;

Answer 3

query.sql.text:='select 编号，姓名 from 表';
query.open;
while not query.eof do
begin
  combobox1.items.add(query.fieldvalues['编号']+'='+query.fieldvalues['姓名']);
  query.next;
end;query1.sql.text:='insert into 表2(编号) values('+combobox1.Items.Values['编号']+')';
query2.execsql;
                 

Answer 4

combobox1保存姓名,另外用一个Tstrings保存编号