网络浏览器的黑名单功能，帮我看看错在哪里？

Question

for I:=0 to vValues.Count-1 do
      acd:=vValues.Values[vValues.Names[I]];
这句得到只是最后一个黑名单
你的循环只是不停修改acd

Answer 1

同上，这句不对：
for I:=0 to vValues.Count-1 do acd:=vValues.Values[vValues.Names[I]];
应为
BlockFlag := False;
i:=0;
while (i<vValues.Count) do begin
  acd:=vValues.Values[vValues.Names[I]];
  //如果acd不等，下一个，如果相等，BlockFlag := True;退出While循环
end;

Answer 2

TTabSheetWithEM 是哪个控件，是不是第三方的，请回复