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写qq消息群发（模拟按键精灵）

Delphi copyrect实现的几个图片的转换效果

Delphi 通过u盘方式加密

Delphi 通过窗口特定标题锁定窗口

Delphi保存网页中的图片

winapi 字符及字符串函数(10): lstrcpy - 复制字符串

Delphi 检测一个网络连接是否有效带超时

Delphi 遍历pe文件

Delphi 双击richedit高亮所有关键字

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

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