现在有10个文本文件;

Question

使用RenameFile函数
Unit
SysUtilsCategoryFile Management RoutinesRenameFile changes a file name identified by OldName.function RenameFile(const OldName, NewName: string): Boolean;

Answer 1

我调用RenameFile函数,它只返回一个Boolean值,但是没有改成功

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: Integer;
  C: Char;
  vNewFileName: TFileName;
begin
  FileListBox1.Directory := 'C:\'; //<路径>
  FileListBox1.Mask := '*.txt';
  for I := 0 to FileListBox1.Items.Count - 1 do begin
    vNewFileName := UpperCase(ExtractFileName(FileListBox1.Items[I]));
    for C := 'A' to 'Z' do
      vNewFileName := StringReplace(vNewFileName, C, IntToStr(Ord(C) - Ord('A') + 1), [rfReplaceAll]);
    vNewFileName := ChangeFileExt(vNewFileName, '.RTF');
    RenameFile(FileListBox1.Directory + '\' + FileListBox1.Items[I],
      FileListBox1.Directory + '\' + vNewFileName);
  end;
end;