delphi实现两个目录路径的链接
2024-08-22 16:08:29
filepath := PathJoin(['C:', 'path1', 'path2\', 'a.doc']);
// filepath = 'C:\path1\path2\a.doc'
代码:
function PathJoin(const Args: array of string): string;
var
len: Integer;
i: Integer;
s: string;
begin
s := '';
len := length(Args);
for i := to len- 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;
最新文章
- MySQL批量删除指定前缀表
- 重写ViewPager方法,防止滑动广告尾页的时候,Fragment也改变! (如果广告设置为轮播的话,不需要重写ViewPager)
- React学习之一:React初探
- 003. vs2010发布、打包安装程序(转)
- php里面为什么header之前有输出报错 源码分析
- JavaScript 应用开发 #5:为完成的任务添加样式
- [转]Delphi调用cmd的两种方法
- PHP面向对象编程快速入门
- not enough actual parameters for macro &#39;min&#39;(QT与vs2010)
- 你要知道的C与C++的区别
- HighCharts之2D柱状图、折线图的组合双轴图
- position 几个属性的作用
- mysql5.7 修改root密码无法登陆原因
- Nginx——基本操作
- mysql数据库显示 1164 table *** doesn't exist
- QLineEdit响应回车时避免Button同时响应
- UVa 10163 仓库守卫
- 分布式处理与大数据平台(RabbitMQ&;Celery&;Hadoop&;Spark&;Storm&;Elasticsearch)
- PHP基本的语法的小结
- 使用Jmeter对应用程序进行测试