Извлечение путей и копирование файлов

[neo4511]

Здравствуйте!
Помогите написать прогу чтобы она считывала пути из файла (к примеру F:\Фильмы\ и F:\$Recycle.Bin\ Сам файл http://ifolder.ru/10038496 )И потом туда копировала другой файл.

Заранее огромное спасибо!
на первый раз: название темы отредактировано. На будущее: один вопрос- одна тема. (Квэнди)

[FaTaL]

Для "считывания" пути к файлу есть функция:
ExtractFilePath ('Путь к файлу');

[Квэнди]

При работе с текстовыми файлами используйте readln
для копирования файлов используйте функцию copyfile

[neo4511]

Надо из самого фойла (http://ifolder.ru/10038496) пути выдрать, к примеру F:\Фильмы\ и F:\$Recycle.Bin\ но в этом файле может нахожится разные пути, эти пути мне и надо считать а потом в них скопировать определённый файл.

[Neobrat]

что то примерно так ))

var
Fail:TextFile;
dir:string;
begin
AssignFile(Fail,'Путь к файлу');
Reset(Fail);
try
while not Eof(Fail) do
 begin
 Readln(Fail,dir); // dir содержт куда надо скопировать
 CopyFile('Что скопировать',dir,false);
 end;
finally
CloseFile(Fail);
end;

[neo4511]

Пишет ошибку: Компиляция
[Ошибка] Unit1.pas(36): Incompatible types: 'String' and 'PAnsiChar'
[Фатальная Ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


var
Form1: TForm1;
Fail:TextFile;
dir:string;

begin
AssignFile(Fail,'DCPlusPlus.xml');
Reset(Fail);
try
while not Eof(Fail) do
begin
Readln(Fail,dir); // dir содержт куда надо скопировать
CopyFile('F:\Фильмы\',dir,false);
end;
finally
CloseFile(Fail);
end;
end;

Мне кажется что вы не совсем поняли, мне надо в файле DCPlusPlus.xml найти строки пути, там они в таком виде:

<Share>
<Directory Virtual="Фильмы">F:\Фильмы\</Directory>
<Directory Virtual="_Recycle.Bin">F:\$Recycle. Bin\</Directory>
</Share>

Но могут быть и другие, надо чтобы указанный мною файл был скопирован в F:\Фильмы\ и F:\$Recycle.Bin\ ,но это тока в этом случае, если другой DCPlusPlus.xml то соответственно пути будут другие.

[Neobrat]

либо обробатывай dir и ищи нужную строчку либо ищи как работать с Xml

[Квэнди]

TxmlDocument в стандартной поставке есть и замечательно с этим справится