本文整理自网络,侵删。
//文件路径获取文件名不带扩展名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 利用datasnap进行数据流(tstream)的传递
Delphi inttostr 将“整数型”转换成“字符型”
更多相关阅读请进入《Delphi》频道 >>