RSS订阅 | 匿名投稿
您的位置:网站首页 > 文件 > 正文

delphi 获取文件名不带扩展名

作者:admin 来源: 日期:2018/2/24 1:42:19 人气: 标签:

function ExtractFilenameNoExt(Filename: String): String;
var
  ExtLen: Integer;
begin
  ExtLen := Length(ExtractFileExt(Filename));
  Result := ExtractFileName(Filename);

  if ExtLen > 0 then
    Result := Copy(Result, 1, length(Result) - ExtLen);
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料