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 webbrowser控件的documentcomplete和downloadcomplete的区别

Delphi-xe5-开发 android uri简介

检测是否按下键盘或鼠标，如果超过5分钟没有操作则认为用户已经离开

Delphi twebbrowser出现 method pastehtml not supported by automation object 解决方法

Delphi strutils.reversestring - 翻转字符串

Delphi dbgrid 表格自适应宽度

Delphi 返回下载地址的文件名

Delphi开发获取文件md5值

Delphi 与 xml 示例（直接利用ixmldocument）

Delphi idhttp控件：get/post 请求

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

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