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 tstringlist自定义排序

Delphi combobox 只读 text属性可用的方法

Delphi 文件夹拷贝子文件及文件夹

Delphi 大小排序算法代码

Delphi 使richedit中的链接可以点击

Delphi xe8 支持md5

Delphi 莫名奇妙的错误 Delphi is not a valid integer value

paramstr返回运行当行程序的某个参数

Delphi 遍例一个外部程序中所有的类名

Delphi 简化版的inputquery 中文版输入对话框

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

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