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

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;

輸出：

ķ

發現溢出！