能写出代码让我看一下吗? 我是这样写的,可是就是判断不出来。 var doc:IHTMLDocument2;all:IHTMLElementcollection;ls_nr:string; begin doc:=web1.Document as IHTMLDocument2; all:=doc.Get_all; ls_nr:=doc.Body.InnerText; if pos(ls_nr,'aaaaaa')<>0 then showmessage('ok') else showmessage('no'); end;
看看你的参数if pos('aaaaaa',ls_nr)<>0 then showmessage('ok') else showmessage('no');
我是这样写的,可是就是判断不出来。
var doc:IHTMLDocument2;all:IHTMLElementcollection;ls_nr:string;
begin
doc:=web1.Document as IHTMLDocument2;
all:=doc.Get_all;
ls_nr:=doc.Body.InnerText;
if pos(ls_nr,'aaaaaa')<>0
then showmessage('ok')
else showmessage('no');
end;
then showmessage('ok')
else showmessage('no');