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 2009 之 tcategorypanelgroup[4]: height

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

Delphi 2009 中 tstrings 与 tstream 的增强

Delphi 获取鼠标当前位置的相对坐标

Delphi 编译发布安卓的app名字问题

windows关机函数exitwindowsex使用大全（适用windows所有操作平台）

Delphi setcursorpos函数在窗口上定位鼠标坐标

Delphi touchkeyboard1 基本用法

Delphi xe5 android在桌面添加快捷方式

Delphi xml解析、使用treeview呈现效果

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

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