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;