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

 

相关阅读 >>

Delphi edit,memo中禁用ctrl+v

Delphi xe5 android 调用手机震动（通过jobject测试是否支持震动）

Delphi xe 制作的萤光时钟，可改作屏保

Delphi timage保存图片到stream及从stream中取图片

Delphi 判断字符串是否为纯数字组合

Delphi idhttp1post上传图片

pascal 语言中的关键字及保留字

Delphi中补齐字符串长度

Delphi xe5中移动平台的字符串要注意的事项

Delphi 判断指定字符串是否开头 startstext用法

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

转载请注明出处：木庄网络博客 » delphi 网址链接提取域名