用tstringlist读入,然后如下判断:
for I := stringlist.count - 1 downto 0 do
begin
tmp := copy(stringlist[I],1,20);
if pos('xxx',tmp) > 0 then
...//删除事件
end;
for I := stringlist.count - 1 downto 0 do
begin
tmp := copy(stringlist[I],1,20);
if pos('xxx',tmp) > 0 then
...//删除事件
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货