我的代码如下
procedure TfrmMain.btncheckclick(Sender: TObject);
var
target: Ansistring;
htmlCode: string;
begin
target := ('<span class="underline">' +
' <h2>');
htmlCode:= GetWebBrowserHTML();
if (Pos(target, htmlCode) > 0)
then
begin
showmessage ('yes');
end;
exit;
end;当用户按下按钮时,它应该检查子字符串的字符串,如果它存在,它应该显示消息,但我无法让代码工作。非常感谢您的帮助!
我正在搜索的子串是一个多行子串,"target“。即使我知道消息存在于字符串中,我也从未能够让消息显示出来。感谢您的帮助
发布于 2017-08-22 16:20:23
在你的代码中:
target := ('<span class="underline">' +
' <h2>');target变量并不包含您所认为的内容,它是<span class="underline"> <h2>。
因此,您需要按如下方式传值:
target := '<span class="underline">' + #13#10 + ' "how many spaces here?" <h2>';例如:
var Str , Sub : String;
begin
Str := 'Stack '+#13#10+' Overflow';
Sub := 'k '+ #13#10+' Overflow';
if pos (Sub , Str) > 0 then
Showmessage (Sub+' found!')
else
Showmessage(Sub+' not found!');
end;输出:
K
发现溢出!
https://stackoverflow.com/questions/45806937
复制相似问题