135798 一组六个号码,如何判断178是否包含在前面那组号码里啊？

1楼: 135798 一组六个号码,如何判断178是否包含在前面那组号码里啊？

2楼: 你的意思是说1、7、8三个数字是否包含在指定的字符串中吗？

3楼: 你是说1,7,8三个数吧，循环用pos分别判断应该就可以的了吧。。 字串1

4楼: xianguo：你说的对的,请帮忙 我前面哪个问题我马上就会给你分的 谢谢!

字串2

5楼: procedure TForm1.Button1Click(Sender： TObject); Var i ： Integer; MySubstr, MyStr ： String; IsExists ： Boolean; begin MyStr ：= Edit1.Text; //‘135798‘ MySubstr ：= Edit2.Text; //‘178‘ // IsExists ：= False; for i ：= 1 To Length(MySubstr) Do begin if pos(MySubstr[i], MyStr)=0 Then Begin IsExists ：= False; Break; End Else IsExists ：= True; End; // If IsExists Then showmessage(‘包含‘) else showmessage(‘未包含‘); End;

字串8

6楼: function fis(sIn：String)：Boolean; begin Result ：= False; if pos(‘1‘,sIn)>0 then if pos(‘7‘,sIn)>0 then if pos(‘8‘,sIn)>0 then Result ：= True; end;

字串7

7楼: 多人接受答案了。 字串5

8楼: 呵呵，楼主是不是在做模拟彩票摇号程序？ 字串7

9楼: 是啊,就是啊,我们自己在研究搞个号码分析,xiaoguo 你是做什么的啊,能流个QQ吗？ 我的QQ：121670321 字串3

10楼: pos()

字串8