有一组字符串列表S1,S1为TstringList型,字符串列表内容每7个一组,如:
1,2,3,4,5,6,7
2,3,4,5,6,7,8
3,5,6,7,8,9,10
1,3,5,9,11,15,16
........
我想实现列表中含有2、3、4 的行留下,其它行删除,怎么实现?谢谢
1,2,3,4,5,6,7
2,3,4,5,6,7,8
3,5,6,7,8,9,10
1,3,5,9,11,15,16
........
我想实现列表中含有2、3、4 的行留下,其它行删除,怎么实现?谢谢
mstr := ','+s1.string[i]+',';
if Pos(',2,',mstr)=0 or pos(',3,',mstr)=0 or pos(',4,',mstr)=0 then
s1.delete(i);