[Taras2020]

Как, правильно исправить код: Что бы программа записывала напрямую в - текстовый фал (то есть - перезаписывала его), а не создавала копию файла.

А, сейчас, программа обрабатывает файлы и возле них создает копию с переделанным результатом. То есть (Копия_Файл).

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

procedure TForm1.btStartClick(Sender: TObject); var fl:TStringList;    i,j, cR, iR :Integer;    s,path,fname1,fname2:string;    f1,f2:textfile; begin   //расширение - файлов   path:='*.txt';   fl:=TStringList.Create;   //Получаем список - файлов   findfile(edit1.Text+'\',path,fl);   //Лог в мемо2   mmLog.Text:=fl.Text;   //Проход (цикл по файлам).........................   for i:=0 to fl.Count-1 do begin     fname1:=fl.Strings[i];     fname2:=ExtractFileDir(fname1)+'\Копия_'+extractfilename(fname1);     AssignFile(f1,fname1);     Reset(f1);     AssignFile(f2,fname2);     Rewrite(f2);     while not Eof(f1) do begin         Readln(f1,s); ................................ ................................       end;         end;     Writeln(f2,s);     end;     CloseFile(f2);     CloseFile(f1);   end; fl.Clear; fl.Free; end;

[lmikle]

Строка 17.
Есть: fname2:=ExtractFileDir(fname1)+'\Копия_'+extractfi lename(fname1);
Изменить на: fname2:=fname1;