Процедура Rename – перейменування файлу

Процедура Rename в Delphi використовується для перейменування файлу.

Процедура Rename: Створення файлу, його перейменування, а потім повторне його відкриття з новим ім'ям

var
  myFile : TextFile;
  text   : string;

begin
  // Спроба відкрити Test.txt для запису
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запис кількох відомих слів у цьому файлі
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'World');

  // Закриття файлу
  CloseFile(myFile);

  // Спроба перейменувати файл - гарантується, що ніякий файл не існує спочатку!
  DeleteFile('NewName.txt');
  Rename(myFile, 'NewName.txt');

  // Тепер читаємо файл
  AssignFile(myFile, 'NewName.txt');
  ReSet(myFile);

  //Показ вмісту
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

  // Закриваємо файл востаннє
  CloseFile(myFile);
end;