Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


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

Если имя файла или имя папки дано без указания пути, то файл должен быть в текущем каталоге.
Примечания
Вы можете переименовать файл на различных дисках, хотя это не рекомендуется.
Похожие команды
AssignFile  Связывает дескриптор файла с бинарным или текстовым файлом

DeleteFile  Удаляет файл, указанный в параметре

Erase  Стирает файл

IOResult  Содержит возвращаемый код последней операции ввода/вывода

Rename  Переименовка фала

 
Пример кода : Переименование 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 переименован обратно
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия