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 实现qq窗体的缩入伸出功能

Delphi isthisleapyear 判断闰年

Delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法

Delphi 语法基础: 使用不同的数据类型标记数组

Delphi xe安装 tclientsocket, tserversocket控件

Delphi 根据经纬度计算地球上两点之间的距离

Delphi:窗体的扩展样式gwl_exstyle用于setwindowlong

Delphi 采用 tidhttp 访问 https 的网站，采用 tidtcpclient 访问 https 的网站

Delphi idftp连接

Delphi url 中文编解码

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

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