Question

delphi combobox有上左，上右，上左x右x，下左，下右，下左x右x，x表示任意数 当combobox.text为‘上’某

delphi combobox有上左，上右，上左x右x，下左，下右，下左x右x，x表示任意数
当combobox.text为‘上’某某,edit1.text显示50，当combobox1.text为‘下’某某,edit1.text显示10。这样的代码怎么写，我是初学者

Answer 1

设定 combobox 里的onChange 事件 （通过双击那个combobox），比如：
procedure combobox1onchange(Sender : Object);
begin
if combobox.text = '上' then
edit1.text := 50;
if combobox.text = '下' then
edit1.text := 10;
end;

Answer 2

procedure combobox1onchange(Sender : Object);
begin
if copy(combobox.text, 1,2) = '上' then
edit1.text := '50'
else if copy(combobox.text, 1,2) = '下' then
edit1.text := '10';
end;

Answer 3

用条件语句if 和通配符 应该可以实现

Answer 4

还是不会呢