Delphi 链接文件名合并

本文整理自网络，侵删。

 
function UrlandPath(Url, path: string): string;
var
  i, L: integer;
  yn: boolean;
begin
  L := length(Url);
  Yn := false;
  for i := L downto 8 do
  begin
    if Url[i] = '/' then
    begin
      Result := copy(Url, 1, i);
      Yn := true;
      break;
    end;
  end;
  if yn = false then Result := Url + '/';
  Result := Result + path;
end;
 

相关阅读 >>

Delphi 开启内存泄漏报告模式

Delphi xe5 android应用程序获取电池信息

Delphi xe 分割字符串太方便了

Delphi 进制转换之10进制与34进制互转

Delphi xe android platform uses-permission[2] androidmanifest.xml 配置

Delphi 打开webbrowser的选中文件路径

Delphi获取系统字体列表

Delphi 让socket支持域名上线

Delphi 使电脑睡眠代码

Delphi xe6 android拨号函数

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

转载请注明出处：木庄网络博客 » Delphi 链接文件名合并