Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.06.2018, 15:14
Taras2020 Taras2020 вне форума
Прохожий
 
Регистрация: 15.01.2018
Сообщения: 36
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Запись в файл - напрямую / DelphiXE

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

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

Код:
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;
Ответить с цитированием
  #2  
Старый 05.06.2018, 21:15
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:53.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter