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 xe android 使用system.zip单元释放资源文件

Delphi 在指定图片上绘制透明文字

Delphi 本地数据库备份与还原(Delphi)

Delphi实现进制转化（2进制，8进制，10进制，16进制）

Delphi 实现文件防删除非亢占(非hook)

Delphi线程中关闭程序

Delphi edit只允许输入数字和小数点

Delphi url protocol 让浏览器运行本地的exe程序

Delphi searchbox1 基本用法

Delphi 取得txt文件编码

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

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