Баг при копировании файлов из ListBox

@MobileDev · Регистрация: 02.02.2021

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

У меня есть код, который производит копирование файлов из списка ListBox:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Timer2Timer(Sender: TObject);
var
FileName : String;
I : Integer;
begin
for I := 0 to ListBox1.Items.Count-1 do
begin
FileName := TPath.GetFileName(ListBox1.Items[I]);
TFile.Copy(ListBox1.Items[I], FileName);
end;
Timer2.Enabled := False;
end;

И в принципе, код работает, файлы копируются, однако есть один очень неприятный баг - во время работы программы, она постоянно выкидывает кучу сообщений об ошибке: specified file already exists, то есть копируемый файл уже существует. Могу лишь предположить, что вышеуказанный код почему-то копирует некоторые файлы два раза (хотя делать этого не должен). Как бы отучить код от этого неполезного занятия?

@OpXiv · 04.02.2021, 22:28

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

Не вижу чем принципиально ваш код отличается от моего

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

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

Не помогает. Все равно выскакивают сообщения об ошибках.

С моим кодом у тебя не будет проблем.

Добавлено через 1 минуту

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

С моим кодом у тебя не будет проблем.

Т.к

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

Может. Потому как выполнение может не успеть закончить цикл копирования до того, как таймер сработает 2-й раз. Я же сказал выше, чтоб ты вырубал таймер до цикла, а не после.

И

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

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

Verevkin · 04.02.2021, 22:28

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

Не помогает. Все равно выскакивают сообщения об ошибках.

Ты объясни, чо ты хочешь-то? Чтобы файлы при совпадении имён заменялись или пропускались?

@MobileDev · 04.02.2021, 23:47 **[ТС]**

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

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

А разве старый не делает то же самое?

Добавлено через 49 секунд

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

Ты объясни, чо ты хочешь-то? Чтобы файлы при совпадении имён заменялись или пропускались?

Заменялись. Или пропускались, все равно, главное чтобы ничего не выскакивало.

@OpXiv · 05.02.2021, 00:01

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

А разве старый не делает то же самое?

Старый за 1 вызов события весь список проходит.

Добавлено через 1 минуту

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

Заменялись. Или пропускались, все равно, главное чтобы ничего не выскакивало.

Какую роль играет таймер в твоём коде ? Ты хочешь что бы этот процесс можно было останавливать?

@Пытливый · 05.02.2021, 01:05

А можно увидеть, что именно у вас лежит в ListBox1? Как собственно выглядит этот загадочный список файлов?

@northener · 05.02.2021, 02:06

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

Может. Потому как выполнение может не успеть закончить цикл копирования до того, как таймер сработает 2-й раз.

Не сработает. Сработка таймера это не прерывание, а помещение нового сообщения в очередь сообщений окна. Пока обработка предыдущего сообщения не закончится, обработка нового не начнется. Тем более что сообщения таймера не накапливаются в очереди сообщений. Если в очереди уже есть такое, новое сообщение не добавляется.

@AzAtom · 05.02.2021, 02:37

Мы просто не знаем интервал этого таймера. Может, он срабатывает раз в 5-10 минут и копирует несколько мелких файлов.

@northener · 05.02.2021, 02:49

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

Мы просто не знаем интервал этого таймера.

Да что там. Мы вообще ничего не знаем кроме непонятных страданий ТС.
Я лично знаю одно, но очень точно! Обработчик таймера не может быть вызван более одного раза одновременно.

@AzAtom · 05.02.2021, 06:36

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

Обработчик таймера не может быть вызван более одного раза одновременно.

Это логично и понятно.

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

есть один очень неприятный баг - во время работы программы, она постоянно выкидывает кучу сообщений об ошибке: specified file already exists

Потому, что в TFile.Copy() при ошибке выкидывается исключение (то самое сообщение об ошибке) и выходит из процедуры, и код дальше не выполняется. То есть, таймер остаётся включённый, поэтому, через заданный интервал таймер опять срабатывает и код опять начинает выполняться и опять выкидывает исключение. В общем, понятно.
Если нужно только однократное срабатывание таймера, то его нужно выключать в первой же строке обработчика, как подсказали.
Что делать с исключениями тоже уже подсказали: либо проверять на существование через FileExists, либо сразу перезаписывать файл. Если эта процедура работает как бэкап, то, наверное, лучше перезаписывать файл.

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	05.02.2021, 01:05
	А можно увидеть, что именно у вас лежит в ListBox1? Как собственно выглядит этот загадочный список файлов? 0

@AzAtom Модератор 4153 / 2362 / 814 Регистрация: 15.11.2015 Сообщений: 9,496
	05.02.2021, 02:37
	Мы просто не знаем интервал этого таймера. Может, он срабатывает раз в 5-10 минут и копирует несколько мелких файлов. 0