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用ado操作数据库完整示例

Delphi 网上获取北京时间 tinifile.readsection 方法在 android 下的应用及各种字符编码问题

Delphi xe datasnap服务器获取客户端ip地址

winapi 字符及字符串函数(13): lstrcmp、lstrcmpi - 对比串

Delphi根据字符分割字串成数组

Delphi 根据文本高度确定richedit高度

Delphi xe10 麦克风、摄像头操作

Delphi image1 图像旋转90

Delphi把域名转换成ip

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

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