|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Запись в файл - напрямую / 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
|
|||
|
|||
Строка 17.
Есть: fname2:=ExtractFileDir(fname1)+'\Копия_'+extractfi lename(fname1); Изменить на: fname2:=fname1; |