Как копировать файл в String из ListBox?

[dolphin705]

У меня есть заполненный Listbox, мне нужно копировать файл в каждую из его сторок, как это сделать?

[Пепел Феникса]

содержимое файла копировать?
точно файлы текстовые?

[dolphin705]

В литст боксе находятся каталоги, нужно копировать обычный двоичный файл.

[Пепел Феникса]

короче, ты меня запутал с формулировкой вопроса

нужно прочитать файл в двоичном виде в строку?

[dolphin705]

procedure FindIt1(path, ext: string; aListBox: TListBox);
var
  SR: TSearchRec;
begin
if FindFirst(Path+Ext, faAnyFile, SR) = 0 then
  begin
    repeat
    if (SR.Attr = faDirectory) then
      if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
        aListBox.Items.Add(SR.Name);
        FindIt(Path+sr.Name+'\',ext,aListBox);
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FindIt('C:\2\','*.*', ListBox1);
end;

После
надо скопировать файл в полученные каталоги с помощью CopyFile

[Пепел Феникса]

а так в чем проблема то теперь?

из листбокса берете путь и копируете

[dolphin705]

Проблема в том что Tstrings и String у меня получаются несовместимы

[Пепел Феникса]

пишите так ListBox1.Items[i]
где i номер строки

[dolphin705]

Так тоже не выходит

procedure TForm1.Button4Click(Sender: TObject);
var
i : Longint;
begin
for i:=1 to 5 do
begin
CopyFile('C:\1\1.exe','1.exe',ListBox1.Items[i]);
end;
end;

[Пепел Феникса]

хмм...странные параметры
а может попробуте так:

procedure TForm1.Button4Click(Sender: TObject);
var i : integer;
begin
 for i:=1 to 5 do
  begin
   CopyFile('C:\1\1.exe',PChar(ListBox1.Items[i]+'1.exe'),true);
  end;
end;