本文整理自网络,侵删。
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 OpenDialog1 添加文件…</a>'));memo2.Lines.Add(GetHref('href','<a href="tencent://message/?uin=&Site=&Menu=yes">QQ客服:<b></b></a>'));end;
相关阅读 >>
Delphi 关于datetimepicker的一点问题(同时修改日期和时间的实现)
Delphi xe 启动关闭start page 页错误提示
Delphi 获取窗口矩形的四种方法: getclientrect、clientrect、getwindowrect、boundsrect
Delphi xe7 android 实现的在线更新app的一个程序
Delphi webservices 字节数组 base64编码
更多相关阅读请进入《Delphi》频道 >>