delphi实现两个目录路径的链接

filepath := PathJoin(['C:', 'path1', 'path2', 'a.doc']);
// filepath = 'C:path1path2a.doc'
代码：
function PathJoin(const Args: array of string): string;
var
  len: Integer;
  i: Integer;
  s: string;
begin
  s := '';
  len := length(Args);
  for i := 0 to len-1 do
  begin
    if s = '' then
    begin
      s := s + Args[i]
    end
    else
    begin
      if Args[i] <> '' then
        s := IncludeTrailingPathDelimiter(s) + Args[i];
    end;
  end;
  Result := s;
end;