Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Копировать файлы [D6, D7]

Tort © (2006-01-16 00:09:00)
Господа! Посоветуйте пожалуйста!

//добавим в список имена файлов
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-17 11:10:00) [1]

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

И где вопрос?

gdaujk (2006-01-17 08:57:00) [2]
var S: string; I: Integer; begin S := ListBox1.Items[I]; end;

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

tort (2006-01-16 20:26:00) [3]
Всем мастерам и участникам вечер добрый!

Друзья, я хочу продолжить разговор на тему копирования файлов.
Немного почитав книжки, разобрался тока в этом, посмотрите пожалуйста, в чем ошибка.
Первая строка - ясна как небо.
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');

Гаврила (2006-01-16 12:32:00) [4]

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

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

tort (2006-01-16 11:43:00) [5]
Я понимаю, что книжки и справки помогают, но там для профи все описано, я а чел с только что начинающей набирать мозги головой. Начинающий в общем. И понимать трудно, но ужасно интересно! Вот так!

Плохиш (2006-01-16 01:21:00) [6]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »