Показать сообщение отдельно
  #1  
Старый 31.03.2020, 14:40
Alex7 Alex7 вне форума
Новичок
 
Регистрация: 18.09.2018
Сообщения: 62
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Копирование файлов

Здравствуйте, на форме есть ListBox в котором полные пути к файлам и DirectoryListBox к котором выбираю куда копировать файлы, пробую так:

Код:
procedure TForm1.Button1Click(Sender: TObject); 
  var
  i : integer;
begin
  for i:=0 to ListBox1.Items.Count-1 do
  if Copyfile(PAnsiChar(ListBox1.Items.Strings[i]),PChar(DirectoryListBox.Directory),false) then
  ShowMessage('Ôàéë óñïåøíî ñêîïèðîâàíà.')
  else
  ShowMessage('Îøèáêà ïðè êîïèðîâàíèè Ôàéëà.');
end;

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