Функция ChangeFileExt – изменяет расширение имени файла

Функция ChangeFileExt в Delphi изменяет расширение имени файла.

Функция ChangeFileExt: Переименовывает Unit1.dcu в Unit1.old

var
  oldName, newName : string;

begin
  // Попытка переименовать текущий Unit1.dcu в Uni1.old
  oldName := 'Unit1.dcu';
  newName := ChangeFileExt(oldName, '.new');

  // Показ нового и старого значения
  ShowMessage('OldName = '+oldName);
  ShowMessage('NewName = '+newName);
end;