Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Замена подстроки в строке
   Категория: Текст и строки
  Как создать вычисляемые поля
   Категория: Базы данных
  Создание цветных строк в ListBox
   Категория: Компоненты
  Компонент StatusBar
   Категория: Компоненты
  Undo в memo
   Категория: Компоненты
  Показать удаленные записи в DBase
   Категория: Базы данных
  Как показать balloon tooltips в программе
   Категория: Приложение
  Создание и удаление полей
   Категория: Базы данных
  Получить имена всех папок и файлов в директории
   Категория: Файловая система

Delphi - Справочник: RenameFile

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 RenameFile
function RenameFile ( const OldName, NewName : string ) : Boolean;
Функция (Unit SysUtils)
Переименование файла или директории
Описание:
Delphi функция RenameFile переименовывает файл или папку и возвращает True если операция переименования прошла успешно.

Если имя файла или имя папки дано без указания пути, то файл должен быть в текущем каталоге.
Пример кода: Переименование Unit1.dcu в Unit1.old и обратно

var oldName, newName : string; begin // Попытка переименовать Unit1.dcu в Uni1.old oldName := 'Unit1.dcu'; newName := ChangeFileExt(oldName, '.old'); if RenameFile(oldName, newName) then ShowMessage('Unit1.dcu переименован') else ShowMessage('Unit1.dcu переименовка прошла с ошибкой : '+ IntToStr(GetLastError)); // Позвольте нам попробовать то же самое, переименовать снова if RenameFile(oldName, newName) then ShowMessage('Unit1.dcu снова переименован') else ShowMessage('Unit1.dcu переименовка прошла с ошибкой : '+ IntToStr(GetLastError)); // Наконец, позвольте нам переименовать файл назад if RenameFile(newName, oldName) then ShowMessage('Unit1.old переименован обратно') else ShowMessage('Unit1.old обратное переименование прошло с ошибкой : '+ IntToStr(GetLastError)); end;

Результат:
Unit1.dcu переименован
Unit1.dcu переименовка прошла с ошибкой : 2
Unit1.old переименован обратно
Примечание:
Вы можете переименовать файл на различных дисках, хотя это не рекомендуется.

  << Вернуться