delphi 网址链接提取域名
//20180307 改进
function DelHttp(URL: String): String;
begin
if Pos('http://', URL) > 0 then Delete(Url, 1, 7);
Result := Copy(Url, 1, Pos('/', Url) - 1);
if Pos('https://', URL) > 0 then Delete(Url, 1, 8);
Result := Copy(Url, 1, Pos('/', Url) - 1);
if Result = '' then Result := URL;
end;
memo1.Lines.Add(DelHttp(edit1.Text)); //http://www.baidu.com/1/2/3/4/ 转换结果 www.baidu.com
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.042983055114746 seconds