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
Rename
Процедура
Переименовка файла System unit
  procedure Rename ( var FileHandle; NewFileName : string | PChar ) ;
Описание
Delphi процедура Rename переименовывает файл данный FileHandle на новое имя укзанное в NewFileName..

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

RenameFile  Переименование файла или директории

 
Пример кода : Создание файла, его переименовка, и затем повторное его открытие с новым именем
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;
Hello
World
 



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