本文整理自网络,侵删。
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 为 service application 添加描述文本的方法
Delphi firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试
Delphi xe tbitmap支持gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件
Delphi xe的firemonkey获取当前文件所在路径的方法
更多相关阅读请进入《Delphi》频道 >>