delphi从全路径中分离路径,有'\'


本文整理自网络,侵删。

 function GetFilepath(FileName: string): string; {从全路径中分离路径,有'\'}
var Contador: integer;
begin
Contador := 1;
while Copy(FileName, Length(FileName) - Contador, 1) <> '\' do
begin
Contador := Contador + 1;
end;
Result := (Copy(FileName, 1, Length(FileName) - Contador));
end;

相关阅读 >>

Delphi 使用zlib对datasetprovider.data数据包进行压缩传输的测试

Delphi pascal实现二分查找算法

Delphi防止同时出现多个应用程序实例

Delphi stringgrid 加载excel表格文件内容自动宽度

Delphi memo1 数字列设定取值范围

Delphi 10.3 控件遮挡 webbrowser

Delphi sqlite 简明上手指南

Delphi 安卓添加资源图片并读取

Delphi压缩与解压_不需要特别的控件

Delphi 关闭所有正在运行的程序

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...