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 case 语句中使用字符串

Delphi 字符串加密解密单元

Delphi xe android 使用system.zip单元释放资源文件

Delphi jpg图像加文字水印

Delphi中的instrrev函数(倒找文本)

Delphi中如何向某个ip不间断的发送数据

Delphi实现url编码解码函数

Delphi qq尾巴病毒的编写

rightstr 返回字符串右边指定个数的新字符(串)

Delphi android 保持唤醒状态

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

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