Delphi 网址链接结尾自动补/

本文整理自网络，侵删。

 
function UrlAddSlash( URL : string ) : string;
begin
 if ( Copy( URL, length(URL), 1 ) <> '/')
  then Result := Trim(URL) + '/'
  else Result := Trim(URL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Text:=UrlAddSlash('http://www.delphitop.com');   //结果  http://www.delphitop.com/
end;
 

相关阅读 >>

Delphi 将 html 代码直接加入到 twebbrowser 组件中去

Delphi实现身份证号码15到18位升位算法

paramstr返回运行当行程序的某个参数

Delphi中用ado连接加密access数据库

Delphi webbrowser1 网页提交按钮执行点击事件

Delphi实现网卡状态检测

Delphi根据输入日期按年月周日输出日期段

Delphi 读取软件卸载信息和桌面图标列表

Delphi cross socket的库

Delphi在手机桌面图标上显示数字

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

转载请注明出处：木庄网络博客 » Delphi 网址链接结尾自动补/