- 0
Программа пытается скопировать файл два раза
-
Похожий контент
-
- 0 ответов
- 532 просмотра
-
- 2 ответа
- 631 просмотр
-
- 1 ответ
- 820 просмотров
-
- 1 ответ
- 671 просмотр
-
- 3 ответа
- 878 просмотров
-
- 9 ответов
- 1 560 просмотров
-
- 0 ответов
- 684 просмотра
-
- 0 ответов
- 4 220 просмотров
-
- 0 ответов
- 488 просмотров
-
Как добавить в приложение проверку наличия соединения с Интернетом?
От Delpher-X,
- delphi
- delphi rio
- (и ещё 4 )
- 17 ответов
- 5 450 просмотров
-
-
Последние посетители 0 пользователей онлайн
- Ни одного зарегистрированного пользователя не просматривает данную страницу
Вопрос
Delpher-X
Есть код для копирования файлов:
procedure TForm1.Timer2Timer(Sender: TObject); var FileIndex, FileName : String; I : Integer; begin randomize; FileIndex := IntToStr(random(5000)); for I := 0 to ListBox1.Items.Count-1 do begin FileIndex := IntToStr(StrToInt(FileIndex) + 1); FileName := FileIndex + Exp; TFile.Copy(ListBox1.Items[I], FileName); end; Timer2.Enabled := False; end;
Когда я его запускаю, все работает, однако постоянно выскакивает сообщение об ошибке: specified file already exists, то есть копируемый файл уже существует. То есть, программа пытается каждый файл скопировать дважды. Вопрос: почему? С чем это связано и как от этого избавиться?
Ссылка на комментарий
40 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.