请各位大哥帮忙!一个菜鸟问题!50分!!

Question

我是一个初学者.
判断某一值有没有在几个值内的程序怎么写?
一个输入框,一个LABEL,
比如,如果china 在USA,DFA,FFDA,FDA中,label显示'ok',否则显示'no'.
比旭如果输入ss,label就显示'no',最好能写出程序.谢谢了用if 'ss' in ['s1','s2'] then为什么s1和s2只能是一个字符,如果为多个字符就出错

Answer 1

呀，if 'ss' in ['s1','s2'] then 这个原来是我写的，不好意思！
因为这个char类型，所以不能多个字符啦！
这样吧if pos(s1,s2)>0 then
label1.caption:='ok';其中s1,s2都是string

Answer 2

var allstr,s1,s2,s3...sn:string; //前提：s1,s2,s3...sn不含有#,&
begin
  allstr:='#'+s1+'&'+'#'+s2+'&'+'#'+s3+'&'+...+'#'+sn+'&';
  If Pos(ss,allstr)>0 Then
    showmessage('ok')
  else 
    showmessage('no');
end;

Answer 3

var allstr,s1,s2,s3...sn:string; //前提：s1,s2,s3...sn不含有#,&
begin
  allstr:='#'+s1+'&'+'#'+s2+'&'+'#'+s3+'&'+...+'#'+sn+'&';
  If Pos('#'+ss+'&',allstr)>0 Then
    showmessage('ok')
  else 
    showmessage('no');
end;