procedure TForm1.Button1Click(Sender: TObject);
type
  lushu=set of 1..12;
var
ls:lushu ;
i,j:Integer ;
str:string ;
begin
   ls:=[1..12];
   str :='1345';
   j:=0;
   for i:=0 to Length (str)-1 do
   begin
      if strtoint(str[i]) in ls then
      j:=j+1;
   end;  
end;
运行提示：---------------------------
---------------------------
Project1
---------------------------
'
---------------------------
确定   
---------------------------
麻烦那位大侠给看一下

[ 本帖最后由 wss841103 于 2011-7-10 19:18 编辑 ]

异常语句用的很好。可能是我没表达清楚吧！我是想：判断比如字符串‘1345’中的1,2,3,4,5有没有在
集合【1,2,3,4,5,6,7,8,9,10,11,12】中出现，如果出现，执行一定的代码。
 通过你的指点，我的代码的确不能实现这样的功能。可单步运行时str[i]明明就只是一个字符啊，为什么不能用
str[i] in ls
这句代码呢？
还用一点不太明白，向你请教一下，你写的这句
 if Length(str) in ls then
好像没什么意义，有没有都是一样的输出结果的，麻烦了，再给讲讲。

[ 本帖最后由 wss841103 于 2011-7-11 21:42 编辑 ]

异常语句用的很好。可能是我没表达清楚吧！我是想：判断比如字符串‘1345’中的1,2,3,4,5有没有在
字符串str中出现，如果出现，执行一定的代码。
 通过你的指点，我的代码的确不能实现这样的功能。可单步运行时str[i]明明就只是一个字符啊，为什么不能用
str[i] in ls
这句代码呢？
还用一点不太明白，向你请教一下，你写的这句
 if Length(str) in ls then
好像没什么意义，有没有都是一样的输出结果的，麻烦了，再给讲讲。异常语句用的很好。可能是我没表达清楚吧！我是想：判断比如字符串‘1345’中的1,2,3,4,5有没有在
字符串str中出现，如果出现，执行一定的代码。
 通过你的指点，我的代码的确不能实现这样的功能。可单步运行时str[i]明明就只是一个字符啊，为什么不能用
str[i] in ls
这句代码呢？
还用一点不太明白，向你请教一下，你写的这句
 if Length(str) in ls then
好像没什么意义，有没有都是一样的输出结果的，麻烦了，再给讲讲。

你真是太有才了，谢谢奥！我把两个结合起来用了：
procedure TForm1.Button1Click(Sender: TObject);
type
  lushu=set of 1..12;
var
ls:lushu ;
i,testcount:Integer ;
s:string ;
list:TStringList ;
begin
    ls:=[1..12];
    s :='1,3,4,5';
    List := TStringList.Create;
    testcount:=ExtractStrings([','],[],PChar(s),List);     
    for i:=1 to testcount do
   begin
      testmember[i]:=StrToInt(List.Strings[i-1]);
      if testmember[i] in ls then
      Memo1 .Lines .Add(IntToStr(testmember[i]))
      else
      checkbox1.checked:=True ;
   end;

end;