Как, правильно исправить код: Что бы программа
записывала напрямую в - текстовый фал (то есть - перезаписывала его),
а не создавала копию файла.
А, сейчас, программа обрабатывает файлы и возле них создает копию с переделанным результатом. То есть (Копия_Файл).
Код:
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;