频道分类

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

作者:admin 来源: 日期:2020/3/27 22:54:41 人气: 标签:

 
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;