У меня два текстовых файла 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;