[Electronic_Arts]

Для копирования путь к коп.файлу берется с
listview1.items[i].caption
путь указан - но так как надо указать еще и название файла я беру ее с
li.Subitems[1]
но почему то после первой удачной копировании оно мне выдает ощибку

Код:

var
 SrcFile, DestFile: file;
  BytesRead, BytesWritten, TotalRead: Integer;
  Buffer: array[1..500] of byte;
 i, FSize: Integer;
begin
if listview1.Items.Count=0 then exit;
for i:=0 to listview1.Items.Count +1 do
begin
prbCopy.Position:=0;
  AssignFile(SrcFile, listview1.Items[i].Caption);
  AssignFile(DestFile, 'C:\'+li.SubItems[1]);//в li.SubItems[1] путь не указан 
                                                        //только имя файла.расчирения
  Reset(SrcFile, 1);
  try
    Rewrite(DestFile, 1);
    try
      try
         TotalRead := 0;
            FSize := FileSize(SrcFile);
              repeat
          BlockRead(SrcFile, Buffer, SizeOf(Buffer), BytesRead);
          if BytesRead > 0 then
          begin
            BlockWrite(DestFile, Buffer, BytesRead, BytesWritten);
            if BytesRead <> BytesWritten then
              raise Exception.Create('Error copying file')
            else
            begin
              TotalRead := TotalRead + BytesRead;
              prbCopy.Position := Trunc(TotalRead / Fsize) * 100;//prbCopy- прогрессбар
              prbCopy.Update;
            end;
          end
        until BytesRead = 0;
      except
        Erase(DestFile);
        raise;
      end;
    finally
      CloseFile(DestFile);
    end;
  finally
    CloseFile(SrcFile);
    listview1.Items[i].Delete;//удаляем то что уже скопировали
  end;
  end;

Почему оно выдает мне ощибку - в чем трабла??

[zip000]

Сообщение от Electronic_Arts

Код:

var
  AssignFile(DestFile, 'C:\'+li.SubItems[1]);//в li.SubItems[1] путь не указан 
                                                        //только имя файла.расчирения

Надо писать так

Код:

listview1.Items[i].SubItems[1]

[Electronic_Arts]

Спасибо за помошь - но появилась еще одно проблема почему оно при копировании несколько файлов выдает ощибку типа ????

Access violation at address 00491A5A in module 'Project1.exe'. Read of address 00000024.

[zip000]

Не

Код:

for i:=0 to listview1.Items.Count +1 do

а

Код:

for i:=0 to listview1.Items.Count -1 do

[Electronic_Arts]

Разобрался
Над просто удалить операцию в конце
listview1.items[i].delete;