Delphi 根据文件路径获取文件名

本文整理自网络，侵删。

 
 
function GetMovieName(const fn: string): string;
var
  i:Integer;
  s:string;
begin
  s := trim(fn);
  if s[Length(s)]='\' then
    s := Copy(s,1,Length(s)-1);
 
  while Pos('\',s)>0 do
  begin
    i := Pos('\',s);
    s := Copy(s,i+1,Length(s)-i);
  end;
  Result := s;
end;
 

相关阅读 >>

Delphi tstringlist stringlist的特殊用法

Delphi 世界时间转换

Delphi 如何确定活动桌面是否已启用

Delphi indy smtp 发送邮件

Delphi richedit 加入链接

Delphi与进程、窗口句柄、文件属性、程序运行状态

Delphi 用firedac获取 sql server错误文本信息

Delphi 执行cmd并取得返回值

Delphi http协议验证访问datasnap rest 服务器

Delphi实现url编码解码函数

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

转载请注明出处：木庄网络博客 » Delphi 根据文件路径获取文件名