Delphi. Работаем с файлами

Опубиковано: 05.06.2008 г., автор: , просмотров: 210069

Тут можно заказать услугу трезвый водитель по приемлемой цене

Delphi создание программ, программирование

Сейчас я хочу показать вам, как в Delphi работать с файлами (изменять, удалять, копировать, переименовывать), ниже будет представлен исходник программы и если у вас что-то не получиться запрограммировать, то вы всегда сможете посмотреть этот исходник.

Копирование файлов в Delphi

За копирование файлов в Delphi отвечает функция CopyFile, она имеет следующий синтаксис:
CopyFile(Начальный_файл, Конечный_файл, Перезапись);

Где,
Начальный_файл - Полный путь с указанием имени и расширения к файлу, который будет копироваться.
Конечный_файл - Полный путь с указанием имени и расширения куда копируем.
Перезапись – Если такой файл уже существует, то будет ли он перезаписан (true - не будет, false - будет).

Пример:

CopyFile('C:\1.txt', 'D:\1.txt', true);

Обратите внимание, что при указании второго параметра (Конечный_файл) мы указываем не просто папку куда хотим скопировать файл, но и еще желаемое имя с расширение файла. Т.е если Начальный файл c:\1.txt, то если указать имя конечного файла как d:\1Copy.txt то в процессе копирования наш 1.txt переименуется в 1Copy.txt.

 

Переименование файлов в Delphi

За переименование файлов в Delphi отвечает функция RenameFileсинтаксис у неё очень простой и чем то схож с функцией копирования.

RenameFile('Начальное_имя','Конечное_имя')
Начальное_имя - Полный путь с указанием имени и расширения, к файлу, который будет переименован.
Конечное_имя - Полный путь к файлу с указанием нового имени и расширения.

Пример:

RenameFile('c:\1.txt','c:\1Rename.txt');

 

Перемещение файлов в Delphi

Что бы переместить файл, в Delphi используется функция MoveFile. Давайте посмотрим на её синтаксис:
MoveFile(Начальный_файл, Конечный_файл);

Где,
Начальный_файл - Полный путь с указанием имени и расширения к файлу, который будет перемещаться.
Конечный_файл - Полный путь с указанием имени и расширения куда перемещаем.

Здесь также следует обратить внимание на то что при указании второго параметра (Конечный_файл) мы указываем не просто папку куда хотим переместить файл, но и еще желаемое имя с расширение файла. Т.е если Начальный файл c:\1.txt, то если указать имя конечного файла как d:\1Paste.txt то в процессе перемещения наш 1.txt переименуется в 1Paste.txt.

 

Удаление файлов в Delphi

Наверное, самая простая из рассмотренных выше функций это функция удаления, DeleteFile.

DeleteFile('Имя_файла');
Имя_файла - здесь предполагается указание полного пути, имени и расширения удаляемого файла.

Пример:

DeleteFile('c:\1.txt');

 

Скачать исходник Delphi файлы Скачать исходник delphi работа с файлами



Похожие материалы

Последние из рубрики

Стабильный заработок в интернете без навыков. 08 Feb 2016 в 21:27 #
Предлагаю Вам возможность работы в интернете, выбирайте самостоятельно более чем из тридцати проверенных вариантов заработка наиболее удобный и близкий Вам.
Все подробности у нас на сайте.
_
Крот 18 Jan 2016 в 21:08 #
Мда... Работа с файлами??? А где методы создания файла? Ума не хватило?
erterteryted 10 Jun 2014 в 09:45 #
fhgfhfghfgjhfghjfgjfg
Качественное продвижение интернет ресурса! 21 May 2014 в 18:43 #
Мы рады предложить вам свои услуги в области раскрутки и продвижения сайтов в поисковых системах, а также иных передовых технологий по оптимизации сайтов. Мы гарантируем, что ваш сайт будет эффективно работать, обеспечивая приток новых клиентов.
Все подробности У нас на сайте или по телефону.
Евгений 08 Oct 2013 в 09:19 #
Я для копирования файла давно использую такую функцию
procedure MyFileCopy(Const SourceFileName, TargetFileName: String);
var
A,F : TFileStream;
begin
A := TFileStream.Create(sourcefilename, fmOpenRead );
try
F := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
try
F.CopyFrom(A, A.Size ) ;
FileSetDate(F.Handle, FileGetDate(A.Handle));
finally
F.Free;
end;
finally
A.Free;
end;
end;

ОтменитьДобавить комментарий