TListView1 ! Как записать его содержимое(файлы) в отдельную папку

← →
Officeman (2003-07-11 23:25) [0]

Такой вид
http://odin.prohosting.com/~zeram/mail/screen1.jpg

в ListView1 вывожу(вкладыдаю) файлы.
т.е. добавляю ярлычек, полное имя файла.

после при начажие на кнопку отправить нужно
каждый файл ListView1
for i := 0 to ListView1.Items.Count do begin

скопировать в отдельную папку. чёто или я глючу под вечер или ...
а другово быть не может! =) подскажите плиз как это сделать!

//Сначало я сохраняю Текстовое сообщение из Memo1
AssignFile(f2,p+"outbox\"+inttostr(mescount)+"\mes\"+inttostr(mescount)+".txt");
rewrite(f2);
for i := 0 to form2.Memo2.Lines.Count do begin
Writeln(f2,form2.memo2.Lines.Strings[i]);
reset(f2);
Append(f2);
Write(f2,str);
CloseFile(f2);
end;

//Затем надо обработать ListView1
for i := 0 to lv2.Items.Count-1 do begin
copyfile(pchar(lv2.Selected.caption),pchar(p+"outbox\"+inttostr
(mescount)+"\fil"),true);
//это неправильно.. а как нужно?

end;

с Уважением, Officeman

← →
Officeman (2003-07-11 23:26) [1]

ссылку скопируйте в буфер.
затем вставьте её в новое окно Iexplorera и нажмите enter.
по другому негрузится почемуто! =(
да вобщем и без картинки понятна задача!

с Уважением, Officeman

← →
Officeman (2003-07-13 13:45) [2]

ау! =)) прошу помощи!

мда парень...
раз: у TStringList есть метод SaveToFile
два: for i:=0 to ListView1.Items.Count-1 do
три: for i := 0 to lv2.Items.Count-1 do begin
copyfile(pchar(lv2.Selected.caption),pchar(p+"outbox\"+inttostr
(mescount)+"\fil"),true);
почему не правильно?

TListView1 ! Как записать его содержимое(файлы) в отдельную папку Найти похожие ветки