Скачать: CL | DM;

Копировать файлы   Найти похожие ветки 

← →
Tort   (2006-01-16 00:09) [0]

Господа! Посоветуйте пожалуйста!

//добавим в список имена файлов
procedure TForm1.Button3Click(Sender: TObject);
begin
 if OpenDialog1.Execute then begin
 Listbox1.Items.Add(ExtractFilename(opendialog1.FileName)); end;
end;

//скопируем эти файлы в указанный каталог
procedure TForm1.Button4Click(Sender: TObject);
begin
 if windows.CopyFile(ExtractFileName(opendialog1.FileName,"C:\test\new.txt",true) then
 Showmessage("OK")else
 Showmessage("Error");
end;

Знаю, что можно сделать так
if windows.copyfile("C:\new.txt",C:\testdir\new.txt, true) then showmessage("ok");

Но мне нужно указать (перечислить ?) имена файлов в списке.
Вот на этом месте я в тупике, компилятор ругается, мол батюшка,  не достаточно параметров.

Мастера, подскажите пожалуйста, как можно обойти такой облом?

---

← →
Плохиш ©   (2006-01-16 01:21) [1]

> подскажите пожалуйста, как можно обойти такой облом?

Чтение справки/книжек должно помочь.

---

← →
tort   (2006-01-16 11:43) [2]

Я понимаю, что книжки и справки помогают, но там для профи все описано, я а чел с только что начинающей набирать мозги головой. Начинающий в общем. И понимать трудно, но ужасно интересно! Вот так!

---

← →
Гаврила ©   (2006-01-16 12:32) [3]

> if
> windows.CopyFile(ExtractFileName(opendialog1.FileName,

1.Надо указать полный путь, а не только имя файла
2. значение надо брать из Listbox1 а не из opendialog1.FileName
3.нужно типизировать под PCHar (или использовать функцию не из windows.pas)
4 для  групповой операции надо организовать цикл по Listbox1.Items

---

← →
tort   (2006-01-16 20:26) [4]

Всем мастерам и участникам вечер добрый!

Друзья, я хочу продолжить разговор на тему копирования файлов.
Немного почитав книжки, разобрался тока в этом, посмотрите пожалуйста, в чем ошибка.
Первая строка - ясна как небо.
  if windows.CopyFile(Pchar(edit2.Text),Pchar(edit3.Text),true) then

Вторая строка - вопрос.

 if windows.CopyFile(Pchar(Listbox1.items.Text),Pchar(edit1.Text),true) then
 Showmessage("OK")else
 Showmessage("Error");

---

← →
gdaujk ©   (2006-01-17 08:57) [5]

var
 S: string;
 I: Integer;
begin
 S := ListBox1.Items[I];
end;

PS: согласен с [1]. И ввообще вопрос уже не про копирование...

---

← →
Плохиш ©   (2006-01-17 11:10) [6]

> Вторая строка - вопрос.

И где вопрос?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.039 c