将相同的事件处理程序分配给两个组合框的OnChange
事件:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text := ComboBox1.Text + ' has ' + ComboBox2.Text + ' car(s)';
end;
如果 '... has ... car(s)' 不是固定字符串,则您没有明确定义的问题。产生明确定义的问题和解决方案的最简单方法是添加第二个TEdit
控件。现在,让两个组合框和第一个编辑控件共享同一个OnChange
事件:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit2.Text := Format(Edit1.Text, [ComboBox1.Text, ComboBox2.Text]);
end;
例如,现在用户可以%s has %s car(s).
在第一个编辑框中输入。
但是,如果您知道用户在编辑框中输入的字符串将只包含每个组合框中的一项,并且字符串的其他部分没有与组合框项重合,那么当然可以动态替换该项在编辑框中。然后让组合框共享此事件:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ComboBox1.Items.Count - 1 do
if Pos(ComboBox1.Items[i], Edit1.Text) > 0 then
begin
Edit1.Text := StringReplace(Edit1.Text, ComboBox1.Items[i],
ComboBox1.Text, [rfReplaceAll]);
break;
end;
for i := 0 to ComboBox2.Items.Count - 1 do
if Pos(ComboBox2.Items[i], Edit1.Text) > 0 then
begin
Edit1.Text := StringReplace(Edit1.Text, ComboBox2.Items[i],
ComboBox2.Text, [rfReplaceAll]);
break;
end;
end;
要尝试此操作,请将组合框设置为Sue
and 2
,然后写入Sue and I have 3 cats. Sue is cute.
。现在尝试更改组合框!
您可以通过仅用新的组合框文本替换旧的组合框文本来使其更加健壮。为此,您需要将先前的值保存在组合框中。无论如何,即使在理论上,你也不能使它完全健壮。事实上,如果字符串是“5 天前支付电费的比尔心脏病发作时拨打了 911”。这条字符串很可能以“Sue 26 天前心脏病发作时打给 26 的情况而告终”。
更微妙的是,如果一个组合框项目是“汽车”而另一个是“火车”,那么“大屠杀”可能会转换为“火车”。