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 获取系统时间,获取系统年月日,时分秒

Delphi 图像自动调整显示

Delphi 使用indy idftp 通过android 上传文件

Delphi隐藏当前进程(新)

Delphixe 如何调用stringtojstring

Delphi读写utf-8、unicode格式文本文件

Delphi 数组复制利用copymemory 最为完美

Delphi fmx自定义对话框样式，多屏幕布局

怀念一下这些经常不记得的Delphi代码

Delphi 删除整个目录

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

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