Question

我的代码在

之下

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”。即使我知道它存在于字符串中，我也从来没有能够显示消息。谢谢你的帮助

Answer 1

在您的代码中：

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

发现溢出！

在字符串中搜索多行子字符串

1 个答案: