Delphi-Help

Rename

Печать
Рейтинг пользователей: / 1
ХудшийЛучший 

Rename

Описание

procedure Rename ( var FileHandle; NewFileName : string | PChar ) ;

Delphi процедура Rename переименовывает файл данный FileHandle на новое имя указанное в NewFileName..

Файл должен быть связан с файловой переменной процедурой AssignFile.

Пример кода

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

Примечание

Используйте RenameFile, когда Вы хотите переименовать файл без необходимости связывания его.

 

Авторизация



Счетчики