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转换长文件名函数 getshortname

重新组织编写Delphi的md2、md4、md5类

idhttp获取文件大小的代码

winapi 字符及字符串函数(13): lstrcmp、lstrcmpi - 对比串

Delphi 精炼的数字转换人民币大写转换代码

Delphi fdmemtable1建立缓存表

Delphi float转换int

Delphi显示jpg、png、gif图片

Delphi删除cookie和ie缓存

cnwizards cnpack ide 专家包

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

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