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中操作olevariant、variant和stream

Delphi写一个utf8编码格式的文本文件

Delphi xe并行编程：ttask

Delphi文本转换图片

Delphi 窗体不可用

Delphi执行cmd命令和bat文件

Delphi 获取适合微信使用的当前日期，以int64表示，是当前时间和1970-01-01 00:00:00之间的秒差

Delphi 实现批量文件名修改

Delphi xe5 android平台 调用 webservice

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

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