Question

DELPHI 当combobox选中体育老师时，在edit中只能填张三，李四，王五中的一个，别的不能填，代码怎么写

Answer 1

你可以在Edit的exit事件里进行判断
If combobox1.text = '体育老师' then
begin
if (edit1.text<>'张三') or (edit1.text<>'李四') or (edit1.text<>'王五') then
begin
Application.MessageBox('必须输入张三李四或王五！','操作提示', MB_ICONSTOP );
exit;
end;
end;

不过呢，还是不建议你写在edit的exit事件里，最好还是写在按钮的触发事件里。程序开发多了你就知道了。虽然效果一样，但是还是有差别的。

Answer 2

你还不如再用一个combobox组件，当在第一个combobox组件中选择体育时，就在第二个combobox组件中显示全部体育老师的姓名。让用户直接选择，无需键盘输入。网页上的地址省、市、县、区的逐项向下选择就是一个例子。你说的要求，不是做不出来，而是它还是需要数据库的支持，与其这样，还不如按我说的这样做。

追问

问题是不能这么做，只能通过一个combobox和edit实现

追答

那佻就用一个，listbox组件，把它可见属性设置为false;在combobox组件中选择体育时，当然会产生一个更新事件，在此事件中，用一SQL语句，从数据库中把体育老师的姓名，都写到listbox中去。当在EDIT组件输入超过二个字符时，开始检测，取出EDIT中的字符与listbox的老师姓名逐行对比，如果都对不上号，就清除EDIT中的文本，并抛出一个消息框，你输入的不是体育老师。如果listbox都不允许用，那就用最蠢的办法，把老师姓名一个一个写到代码中：
if (edit.text'张老湿') and (edit.text'赵老湿') and 。。。。then
begin
edit.text:='';
showmessage('不是体育老师');
end;

Answer 3

创建一个Tstringlist对象，然后将其赋予Combobox的Tstring值，然后在Edit1的onchange里遍历这个对象，看输入的是否是老湿 不是就清空。

Answer 4

onchange 过程判断