Тема: Запись в файл - напрямую / DelphiXE
Показать сообщение отдельно
  #2  
Старый 05.06.2018, 21:15
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Строка 17.
Есть: fname2:=ExtractFileDir(fname1)+'\Копия_'+extractfi lename(fname1);
Изменить на: fname2:=fname1;
Ответить с цитированием