集合问题

我有一类数字6001,6002,5001,3002,301等(个数不定,但也不会太多)这类数字,且中间有分号,现在有变量b:integer,判定b是否在这一类数字中
我用if b in [6001,6002,5001,3002,301] then exit;
程序不能编序,好像是[]里面只能是0---255的值,哪位能有较好的方法帮写一下,不要用循环,最好用一两名代码就能处理。
[213 byte] By [rong451-rong451] at [2008-1-9]
# 1
已自行解决
rong451-rong451 at 2007-10-19 > top of Msdn China Tech,Delphi,语言基础/算法/系统设计...
# 2
本来就有函数的~~
ron_xin-星雨 at 2007-10-19 > top of Msdn China Tech,Delphi,语言基础/算法/系统设计...
# 3
用TStringList的Find可以实现
keiy at 2007-10-19 > top of Msdn China Tech,Delphi,语言基础/算法/系统设计...
# 4
用pos函数解决,开始未找到用此函数
rong451-rong451 at 2007-10-19 > top of Msdn China Tech,Delphi,语言基础/算法/系统设计...