Windows.CopyFile() ? =(( Heeelp

[Дворник]

вообще я как обычно видимо слишком просто пытаюсь использовать подобные вещи, а может я и вообщем некудышный программер, но вот только не будем щас об этом =((

кароче, у меня вот что.
у меня есть компонент StringGrid в который добаляеться список аудио файлов используя OpenDialog. но помимо того, что после того, как пользователь нажимает сохранить данный список, то аудио файл, который был взят непойми откуда (я имею ввиду хоть с флешки, хоть из ...), он копируеться в специальный каталог программы (так сказать родительский). Так вот. Пользователь можен до покоса составлять список этих файлов, и весь список отображаеться в StringGride, но вот копирование файлов, начинаеться только после того как он нажмет кнопку Сохранить.

Windows.CopyFile(PChar(OpenDialog1. FileName), PChar(WAY + '\Advertisment\' + StringGrid1.Cells[0,StringGrid1.Row] + '\' + ExtractFileName(OpenDialog1.FileNam e)), False);

вот так я копирую. беда в том, что когда я открываю родительскую папку программы, куда собственно и должны были скопироваться все треки, там бл*ть лежит один с*ка несчастый последний аудио трек =((( простите за матики

помогайте мне!!!!!! пожаалуста разумееться

[Stilet]

for i:=0 to OpenDialog1.Files.Count-1 do begin
 Windows.CopyFile(PChar(OpenDialog1.Files[i]), 
PChar(WAY + '\Advertisment\' + StringGrid1.Cells[0,StringGrid1.Row] + '\' + 
ExtractFileName(OpenDialog1.Files[i])), False);

Так что ли? У тебя мультселект выставлен?

[GoodDA]

а может так?

for i:= 1 to stringgrid1.RowCount-1 do
  Windows.CopyFile(PChar(stringgrid1.cells[0,i]), PChar(WAY + '\Advertisment\' +  ExtractFileName(StringGrid1.Cells[0,i])), False);

а добавление файлов в таблицу

  if opendialog1.execute then
  begin
    stringgrid1.RowCount := stringgrid1.RowCount+1;
    stringgrid1.cells[0,RowCount-1] := OpenDialog1. FileName;
  end;

[Дворник]

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

for i:=0 to OpenDialog1.Files.Count-1 do begin
 Windows.CopyFile(PChar(OpenDialog1.Files[i]), 
PChar(WAY + '\Advertisment\' + StringGrid1.Cells[0,StringGrid1.Row] + '\' + 
ExtractFileName(OpenDialog1.Files[i])), False);

Так что ли? У тебя мультселект выставлен?

а че такое мальтселект ??

[Stilet]

мальтселект

Мальтийская секта кельтского креста.

Найди в хелпе описание TOpenDialog.Options и почитай про ofAllowMultiSelect
Либо здесь: http://www.delphibasics.ru/TOpenDialog.php Если с Аглицким но дружен.