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 中 inputquery 实现密码输入

Delphi 7zip 示例调用7z.dll 压缩及解压.7z文件

Delphi检测android mock位置

Delphi 虚拟桌面服务程序

Delphi屏蔽win、ctrl_esc、alt_tab、alt_f4等键(windows xp、windows 2003 server下测试通过)

Delphi 关闭进程方法

Delphi 提升进程权限

Delphi中interface接口的使用方法

Delphi获取access中的表名代码

Delphi xe7写的一个http post的小测试程序

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

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