Question

关于Delphi的句子格式

本人用Delphi连Access，有个问题求教 我想实现 If edit1.text=a,b,c,cd，d……then 等号邮编大概有十多个值请问我应该用什么格式才是正确的？真心求教啊！！
等号右边，打错字了

Answer 1

if (edit1.text=a) or (edit1.text=b) or edit1.text=c).... then…………一般可以这样做
另外，如果abcd是数值，也可以用 case

Answer 2

可以使用case语句来进行处理.但邮编的第一个字符最好不能是零.
比如
var
ybbm:integer;
begin
ybbm:=strToint(edit1.text);
case ybbm of
431803:begin
//你要程序做什么代码
end;
574201:bgein
//你要程序做什么代码
end;

574206:bgein
//你要程序做什么代码
end;
..................................//无限多
列完之后,还要再写一个end;以结束case语句.
end;

Answer 3

可以试一下IN的用法；
例如：
if edit1.Text in ['a', 'b', 'c', 'cd', 'd'..] then

希望对你有帮助！！

追问

我试过了。他们不是有序类型。所以失败的。。

Answer 4

需要知道　a,b,c,cd，d……　这些是什么，是字符还是变量？说明清楚有助于问题的解答。

Answer 5

用 If Edit1.text IN() then 格式