两个问题1)两个edit相加在第三个edit上得出值2)下拉单中选一值在另一list中得出对应值

Question

两个问题1)两个edit相加在第三个edit上得出值2)下拉单中选一值在另一list中得出对应值

Answer 1

if (edit1.text='') or (edit2.text='') then 
begin
showmessage('数据类型不对');
exit;
end;edit3.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));

Answer 2

或者  edit3.text:=floattostr(strtofloat(edit1.text)+strtofloat(edit2.text));

Answer 3

判断输入的是否是数字
 If not( Key in ['0'..'9',#8]) Then
 Key:=#0; 还应该有小数点的
edit3.text:=floattostr(strtofloat(edit1.text)+strtofloat(edit2.text));

Answer 4

2:
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  listbox1.Clear;
  listbox1.Items.Add(combobox1.Text);
end;