-----清---------岂--------------
-----理---------------------------
-----负------妈-------
-----面----------加--QQ--------
-----消---------------5-------
-----息---------------7-------
----------------------5---------
----------------------1--------
-------删-------------1--------
-------这-------------4---------
-------个-------------6---------
-------知-------------2---------
-------道-------------2---------
---------------------------------
-------------诚实守信--------------
专业处理个人与企业危机公关 :
维护个人和企业网络形象 专业处理个人与企业危机公关 QQ --------------删除百度快照
维护个人和企业网络形象 231 ----------------删除互联网的各种帖子
风生品牌维护机构 069 -------------删除网上电话照片视频等
,
是一家专业网络传媒的公司 91 --------------删除搜索引擎负面信息
你的满意是我们最大欣慰 26 ------------负面文章的挤压稀释
删除百度快照
删除互联网的各种帖子
删除搜索引擎负面信息
procedure TForm1.Button1Click(Sender: TObject);
var
List: TStrings;
begin
List := TStringList.Create;
ini.ReadSection('AAA',List);
for i:=0 to list.count-1 do
begin
if pos('Hour',list.string[i])>0 then
ini.DeleteKey(AAA,,list.string[i]));
end;
List.Free;
end;
靠,一个循环不就搞定了。