Delphi 怎么给文件重命名

在 delphi 语言携闹里，提供 RenameFile 用于对指定文件进行重命名，以下辩肆罩是示例代码：

RenameFile('旧文件名.txt', '新文雹运件名.txt')

修改文件夹闹仔慎尺名液孝汪称 Delphi syntax: function Rename(const Filename: WideStringconst NewName: WideString): Integeroverload

function ReNameFiles(): Boolean

var

fn, txtfn, pdffn: string

begin

{delphi 点一个按钮 实现 如果存在c:/abc/a 这个文件 将其更改为c:/abc/a.txt

如果不存在 则将c:/abc/a.txt 更改为c:/abc/a.pdf 如果修改成功提示 成功 修改锋轿失败链携提示 失败

怎么实现啊? 谢谢了}

Result := False

fn := 'c:\abc\a'

txtfn := 'c:\abc\棚基伏a.txt'

pdffn := 'c:\abc\a.pdf'

if FileExists(fn) then

begin

Result := RenameFile(fn, txtfn)

end

else begin

if FileExists(txtfn) then

begin

Result := RenameFile(txtfn, pdffn)

end

end

if Result then

ShowMessage('OK')

end

---