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 datetimepicker 宽度如何与Delphi自带style同步

Delphi getvolumeinformation获取硬盘分区信息

Delphi 编写的一个感染文件夹的小病毒

Delphi获取操作系统安装磁盘盘符

Delphi 替换指定字符串的函数

Delphi如何过xp的防火墙而不被拦截

Delphi api 函数中使用 pchar 参数的几种方法

Delphi中怎么判断一个文件夹是否为空

idhttpserver允许跨域访问

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

转载请注明出处：木庄网络博客 » delphi从路径中分离文件名