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 取得当前进程占用内存及线程数

Delphi 将文件转换成base64编码

Delphi判断驱动器类型

Delphi copy 字符串函数

Delphi tedit 编辑框 中文使用说明

Delphi 生成xml 方法 与 Delphi txt文件操作

Delphi通过wmi获取系统信息

Delphi 读取eset nod32 的用户名与密码

Delphi整理四（程序控制结构）

Delphi dbgrid鼠标滚屏

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

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