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监视注册表

Delphi 双击隐藏tabsheet

Delphi 为 service application 添加描述文本的方法

Delphi字符串隐藏一法

Delphi firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试

Delphi checklistbox 用法

Delphi模拟点击网页中的按钮

Delphi xe tbitmap支持gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件

Delphi xe的firemonkey获取当前文件所在路径的方法

Delphi 瞬间消除无用托盘图标(刷新托盘)

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

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