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 xe2和xe3开发的程序中加入管理员权限申请

Delphi中如何判断mediaplayer控件所播放的文件是否播放完毕？

Delphi createdir 建立文件夹路径

正则表达式初学入门

Delphi中获取memo鼠标所在位置的行和列

Delphi获得文件的版本号

Delphi setwindowshookex - 设置钩子 unhookwindowshookex - 卸掉钩子

Delphi tstringlist删除重复项

Delphi的tservice的windows�入桌面切�q

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

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