返回改变扩展名后的文件名
首部 function ChangeFileExt(const FileName, Extension: string): string; $[SysUtils.pas
功能 返回改变扩展名后的文件名
说明 [注意]扩展名Extension前要加点;ChangeFileExt('a.jpg', 'bmp')='abmp'
参考 function SysUtils.LastDelimiter;function System.Copy
例子 Edit1.Text := ChangeFileExt(Edit2.Text, Edit3.Text);