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 createthread的线程传参数（小熊论坛的）

Delphi memo加个prompttext

Delphi 文件路径相关的字符串操作

Delphi计算两个时间差

Delphi xe6取得android智能手机的电话号码等的终端信息

Delphi 字符串分割

Delphi 封装的tidhttp get post 请求

Delphi 计算一个路径相对于另一路径的相对路径

Delphi 如何通过进程句柄判断该进程是否已退出？

Delphi 脉搏波9808血压计读取测试程序

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

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