函数请教

Question

MainWindow.WebBrowser1.Navigate('http://192.168.0.5/music/music.asp');我要在Button1Click中判断现在浏览器地址上是否包含了'music'这个子字符号串
If如果有的话 Then
showmessage('Have')
请问我要用什么方法可以实现?

Answer 1

首部 function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas
功能 返回字符串AText是否包含子串ASubText
说明 不区分大小写
参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos
例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);

Answer 2

if pos('music','http://192.168.0.5/music/music.asp') <> 0 then
    showmessage('Have');

Answer 3

if pos('music','http://192.168.0.5/music/music.asp') <> 0 then

Answer 4

if pos('music','http://192.168.0.5/music/music.asp') > 0 then
    showmessage('Have');

Answer 5

If Pos('music',WebBrowser1.LocationURL)>0 then
  ShowMessage('Have');