delphi从路径中分离文件名


本文整理自网络,侵删。

 function GetFileName(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, Length(FileName) - Contador + 1, Length(FileName)));
end;

相关阅读 >>

Delphi 防局域网控制网速代码

Delphi 更改消息对话框中的按钮标题

Delphi二分查找算法(预排序数组的查找)

Delphi 隐藏进程代码

Delphi xe7实现的登录窗体的正确用法示例

Delphi向当前窗口模拟键盘ctrl+v发送"粘贴"

Delphi中coinitialize作用

Delphi 申请内存空间 内存分配 缓冲区

Delphi请求http接口中文乱码问题

Delphi10.3通过json.serializers单元对大量数据序列化

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



打赏

取消

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

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

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

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

评论

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