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 txt日志log

Delphi webbrowser同时访问两个网址导致程序出错的解决办法

Delphi 用firedac处理sqlite的日期型

Delphi中combobox的datavalue值

Delphi 字符串加单引号

Delphi 如何从一张图片中裁剪一部分距形图片另存为文件（使用canvas.copyrect）

Delphi 抓图后打印这张图片,弹出打印属性框

Delphi的split函数 4个版本

Delphi 清除ie缓存 internet临时文件 cookie 历史记录 表单记录 上网密码

Delphi 如何使用通配符删除文件

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

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