delphi 获取\xxx\xxxx\1234最后一级名称

本文整理自网络，侵删。

 
function GetLastName(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;

procedure TForm1.FormCreate(Sender: TObject);
var
str:string;
begin

  caption := GetLastName('\sfsdf\sdfsdfs\电影名称');
end;
 

相关阅读 >>

Delphi与sql server存储过程编程详解

Delphi 检查注册表键、键值是否存在

Delphi 获取网址链接协议头

Delphi udp文件传输

Delphi memo1自动循环上下滚屏

Delphi 解决android 9上无法使用http协议

Delphi 判断字符串是否为纯字母组合

Delphi 的运算符列表

Delphi 获取image.picture.data的数据

Delphi comparestr 这个函数可以模糊匹配，且不区分大小写

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

转载请注明出处：木庄网络博客 » delphi 获取\xxx\xxxx\1234最后一级名称