Здравствуйте, на форме есть 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;
Не получается, подскажите что не так.