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 高速替换大文本字符串内容

Delphi 让combobox只允许输入数字和回车键以及Delphi key值表

Delphi 如何让 tgpimage 直接从流中加载图片?

Delphi 文件/流的加密解密方法

Delphi vcl图像的二值化

Delphi 倒计时对话框

Delphi 10 seattle的android应用程序中使用参数启动服务

Delphi 让socket支持域名上线

Delphi windows 编程[21] - wm_menuselect 消息与 getmenustring 函数

Delphi 读文件到十六进制的函数(Delphi 7 下可用)

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

转载请注明出处：木庄网络博客 » delphi 文件路径获取文件名不带扩展名