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

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

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

    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;

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