|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Копирование файлов
Здравствуйте, на форме есть 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; Не получается, подскажите что не так. |