Как скопировать файл

@jkrnd · Регистрация: 22.12.2015

Студворк — интернет-сервис помощи студентам

Команда

Pascal
1
CopyFile('161231m.grf', '161231m.grf.bak', false);

не компилируется. Может я не подключил нужный модуль инструкцией uses или
в Lazaruse свои команды для копирования, переименования, удаления файлов?

Verevkin · 11.12.2020, 19:05

проставь курсор внутрь скобок и нажми ctrl+shift+пробел. Увидишь аргументы.
Сама функция в модуле windows.pas.

@volvo · 11.12.2020, 19:15

Модуль Windows в Лазарусе никому на фиг не нужен...

Pascal
1
uses ..., FileUtil;

, там есть все, что нужно для работы с файлами и папками.

@jkrnd · 11.12.2020, 20:02 **[ТС]**

volvo, а как с флагами? cffOverwriteFile куда ставить если я хочу перезаписать существующий файл?

@D1973 · 11.12.2020, 21:20

Сообщение от jkrnd

cffOverwriteFile куда ставить если я хочу перезаписать существующий файл?

Этот флаг по умолчанию установлен. Поэтому если надо включить перезапись - ничего дополнительно делать не надо. Другое дело если Вы хотите выключить эту опцию - тогда просто указываете либо пустое множество, чтобы отключить все возможные флаги,

Pascal
1
if CopyFile(Src, Dst, []) then ...

либо явно указываете только те, которые надо включить:

Pascal
1
if CopyFile(Src, Dst, , [cffCreateDestDirectory, cffPreserveTime]) then ...

@jkrnd · 11.12.2020, 23:07 **[ТС]**

D1973, немного уточнений:

Pascal
1
CopyFile('161231m.grf', '161231m.grf.bak',[cffCreateDestDirectory, cffPreserveTime]);

Файл '161231m.grf' будет скопирован в ту же папку под именем '161231m.grf.bak' причём,
1) если файл с именем '161231m.grf.bak' существует, он будет перезаписан
2) если по каким-то причинам не существует директория назначения, она будет создана
3) время создания и изменения файла bak будет такое же как у копируемого файла
Правильно?

Добавлено через 20 минут
В хэлпе ещё и четвёртый параметр есть. Он отвечает за генерацию ошибки в случае неуспешного копирования.
Флаг cffPreserveTime (даты оригинала переносим в даты копии) мне нужен и перезапись нужна, остальное нет.

Pascal
1
CopyFile('161231m.grf', '161231m.grf.bak',[cffPreserveTime],false);

@volvo · 12.12.2020, 03:25

Сообщение от jkrnd

1) если файл с именем '161231m.grf.bak' существует, он будет перезаписан

С чего бы? Не будет. Ибо это не было указано в 3-ем параметре. Дефолтное значение было затерто, в новом про перезапись - ни слова.

Сообщение от jkrnd

Он отвечает за генерацию ошибки в случае неуспешного копирования.

За выброс исключения он отвечает.

Сообщение от jkrnd

Флаг cffPreserveTime (даты оригинала переносим в даты копии) мне нужен и перезапись нужна, остальное нет

Вот тогда приведенный код неправильный. Если программисту что-то нужно, и это что-то не совпадает с дефолтными значениями - то надо указывать то, что нужно полностью, а не надеяться, что часть, которая была дефолтной тоже применится в дополнение к выставленному принудительно. Не применится. Либо дефолт, либо строго то, что написал программист. Для того, что написано выше:

Pascal
1
CopyFile('161231m.grf', '161231m.grf.bak',[cffOverwriteFile, cffPreserveTime]); // четвертый параметр получит дефолтное значение false

@northener · 12.12.2020, 03:50

Не по теме:

Сообщение от jkrnd

даты оригинала переносим

Вот давно самому интересно хоть что-то точное узнать про "даты оригинала".

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

Verevkin Нарушитель 10225 / 5655 / 1257 Регистрация: 12.03.2015 Сообщений: 26,180
	11.12.2020, 19:05
	проставь курсор внутрь скобок и нажми ctrl+shift+пробел. Увидишь аргументы. Сама функция в модуле windows.pas. 1

@jkrnd 179 / 69 / 13 Регистрация: 22.12.2015 Сообщений: 2,648
	11.12.2020, 20:02 [ТС]
	volvo, а как с флагами? cffOverwriteFile куда ставить если я хочу перезаписать существующий файл? 0

Как скопировать файл

Решение