函数说明 更改指定文件的扩展名,函数原型如下:
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
posted on 2009-01-13 18:07
小叶子 阅读(3149)
评论(0) 编辑 收藏 引用 所属分类:
windows API函数