[kriv0y]

У меня два текстовых файла f1 в котором по порядку
идут пути к файлам , которые нужно переименовать, вот так они выглядят
E:\Recoverd_doc_file(1).doc
E:\Recoverd_doc_file(2).doc

Во втором файле имена на которые нужно поменять, например drivers, music оставив прежнее расширение *.doc и тд.

Но цикл останавливается на первом переименовании, как буд-то он вообще отсутствует, хотя поидее он должен продолжаться до тех пор, пока в первом текстовом файле не кончаться все строки.

Код:

procedure TForm1.Button4Click(Sender: TObject);
var

lastname:string;


begin

  AssignFile(f1, 'c:\1.txt'); // назначаю файлы со строковыми данными
  Reset(f1);
  AssignFile(f2, 'c:\2.txt');
  Reset(f2);

try


 while not EOF(f1) do begin // цикл который считывает все строки из 1 файла пока они не закончатся в buf ,а так же из 2 файла в name

  readln(f1, buf);
  readln(f2, name);


  lastname:=chosenDirectory+'\'+name+'.doc'; //преобразую путь+имя для переименования, для этого беру строку с путем к директории где он лежит+\+имя файла из второго тектовика и добавляю расширение

  RenameFile(buf,lastname ); //переименовываю файлы




 end;


finally
   Closefile(f1);
   Closefile(f2);
end;