RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

delphi 网址链接提取域名

作者:admin 来源: 日期:2018/2/15 20:20:21 人气: 标签:

//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


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: