Delphi ChangeFileExt 更改文件的后缀扩展名


本文整理自网络,侵删。

 函数说明 更改指定文件的扩展名,函数原型如下:
delphi中源码
function ChangeFileExt(const FileName, Extension: string): string;
//第一个参数为要修改的文件名,可以带路径
//第二个参数为修改后的后缀名
//该函数返回修改后的文件名
var
I: Integer;
begin
I := LastDelimiter('.' + PathDelim + DriveDelim,Filename);
if (I = 0) or (FileName[I] <> '.') then I := MaxInt;
Result := Copy(FileName, 1, I - 1) + Extension;
end;

比如:
s:=changefileext('f:\123.txt','.ini');
showmessage(s);//f:\123.ini

=============

function ChangeFileExt(const FileName, Extension: string): string;
var
I: Integer;
begin
I := LastDelimiter('.' + PathDelim + DriveDelim,Filename);
if (I = 0) or (FileName[I] <> '.') then I := MaxInt;
Result := Copy(FileName, 1, I - 1) + Extension;
end;

相关阅读 >>

Delphi android 获取通�记录

Delphi 精炼的数字转换人民币大写转换代码

Delphi datetimetogmt gmt时间与tdatetime转换

Delphi exe执行程序dos参数的运用

fmsoft_unigui个文件说明

Delphi快速地删除一个目录

Delphi 网上获取北京时间取字符串与字符串中间的字符

Delphi 键盘记录源代码

Delphi listbox防止添加重复

Delphi 用正则表达式获取指定的字符串续取出所有符合要求的字符串

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



打赏

取消

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

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

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

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

评论

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

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