delphi 文件路径获取文件名不带扩展名


本文整理自网络,侵删。

 
//文件路径获取文件名不带扩展名
Function ExtractFileNameNoExt(FileString: String): String;
Var
  FileWithExtString: String;
  FileExtString: String;
  LenExt: Integer;
  LenNameWithExt: Integer;
Begin
  FileWithExtString := ExtractFileName(FileString);
  LenNameWithExt    := Length(FileWithExtString);  FileExtString     := ExtractFileExt(FileString);   LenExt            := Length(FileExtString);
  If LenExt = 0 Then
     Begin
       Result := FileWithExtString;
     End
     Else
      Begin
       Result := Copy(FileWithExtString,1,(LenNameWithExt-LenExt));
      End;
 End;

相关阅读 >>

Delphi 关于虚拟的desktop的编程

Delphi 利用datasnap进行数据流(tstream)的传递

Delphi inttostr 将“整数型”转换成“字符型”

Delphi中判断操作系统是否是windows7

Delphi程序带参数运行

Delphi urlencode

Delphi版进程间的相互调用与参数传递

Delphi可执行程序参数

Delphi 优盘背景生成器源码

Delphi trayicon1如何把窗体关闭到系统托盘

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...