delphi GetHref 获取<a href="链接"></a>中href的数据

本文整理自网络，侵删。

 
function GetHref(href,s: string): string;
var p: integer;
begin
  p:= pos(href,s);
  if (p=0) or (s[Length(href)+p]<>'=') then begin Result:=''; Exit; end else
  begin
    Delete(s,1,p+Length(href)+1);
    p:= pos('"',s);
    Delete(s,p,Length(s)-p+1);
  end;
  Result:= s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

memo2.Lines.Add(GetHref('title','<a href="/html/wenjian/3636.html" title="delphi OpenDialog1 添加文件打开多选模式">delphi&nbsp;OpenDialog1&nbsp;添加文件…</a>'));
memo2.Lines.Add(GetHref('href','<a href="tencent://message/?uin=&Site=&Menu=yes">QQ客服：<b></b></a>'));
end;
 

相关阅读 >>

Delphi如何获得当前操作系统语言环境

Delphi xe5 android 开发实现手机打电话和发短信

Delphi combobox 只读 text属性可用的方法

Delphi listview高速添加数据

Delphi adoconnection1连接mssql数据库方法

Delphi xe 使用asqlite操作sqlite数据库乱码

Delphi中获取当前用户sid

Delphi 建立access数据库

Delphi 如何检查字符串是否为数字

Delphi timer定时器使用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi GetHref 获取<a href="链接"></a>中href的数据