delphi 截取绝对路径的文件名

本文整理自网络，侵删。

 {delphi 截取绝对路径的文件名。}
function ExtractFileName(Str: string): string;
var
i: Integer;
begin
Result := '';
for i := Length(Str) downto 1 do
begin
if Str[i] <> '\' then Insert(Str[i], Result, 0)
else Exit;
end;
end; 

相关阅读 >>

Delphi 链接获取主站地址

secsperday：一天共有多少秒

Delphi利用系统环境变量获取常用系统目录

Delphi 获取unigui 控件id 及获取html值

Delphi excel数据导入数据库表

Delphi inputbox 输入时显示*号

Delphi驱动开发研究第一篇--实现原理

Delphi 防止程序重复打开运行

Delphi listbox防止添加重复

Delphi 获取按键键值

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

转载请注明出处：木庄网络博客 » delphi 截取绝对路径的文件名