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



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