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 过滤网页代码 <script></script>

Delphi 时间耗时统计

idhttp使用时内存猛增，如何解决

Delphi的listview自动排序

Delphi new 为指针分配内存空间

Delphi 如何get/post 调用http请求

Delphi 获取文件修改时间

Delphi 将鼠标锁定在一定范围

Delphi中string与pansichar转换

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

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