-1

Как исправить код, чтобы программа сохраняла каждый новый файл с порядковым номером.

Сейчас сохраняет файл: New_f, New_New_f, New_New_New_f ..

А нужно что бы сохраняла: New_f1, New_f2, New_f3 и так далее...

newName := ExtractFilePath(AFileName) + 'New_' + ExtractFileName(AFileName);
4
  • 1
    Укажите, какое имя у Вас изначально и какие Вы хотите получить? Вместе с расширениями 26 мар 2018 в 11:38
  • Изначально fayl. А получить fayl1, fayl2, fayl3 и так далее. То есть если такой файл существует то создается новый. 26 мар 2018 в 11:40
  • 2
    Возможный дубликат вопроса: Как сгенерировать случайное имя для файла?
    – dr. F.I.N.
    26 мар 2018 в 11:55
  • А как именно в этом коде ? Опыта в этом нет. 26 мар 2018 в 11:57

1 ответ 1

1

Имя файла создаётся у вас строкой:

ExtractFilePath(AFileName) + 'New_' + ExtractFileName(AFileName)

Разумеется, каждый раз вы прибавляете к имени файла "New_" пр вызове данной процедуры. Чтобы избежать этого, есть варианты, например, простейший:

var
  filenumber:integer;

<...>

filenumber:=1;
<...>

procedure WriteLines(AIndices: TDictionary<Integer, Integer>; const AFileName: string);

begin
<...>
     LDstFile := TFileStream.Create(
        ExtractFilePath(AFileName) + 'New_f' + IntToStr(filenumber)+'.txt', fmCreate); // при условии, что расширение у файла = '.txt'
     inc(filenumber);
<...>
end;

Но, если хочется, чтобы номер определялся непосредственно из имени файла, то, к примеру так:

procedure WriteLines(AIndices: TDictionary<Integer, Integer>; const AFileName: string);
var
  tmp1,tmp2:string;
  i:integer;
begin
<...>
   tmp1:=Delete(ExtractFileName(AFileName),1,5);// поскольку мы знаем префикс файла 'New_f'
   tmp2:='';
   i:=1;
   while tmp1[i] in ['0' .. '9'] do  // выделяем числовую составляющую файла
      begin
         tmp2:=tmp2+tmp1[i];
         inc(i);
      end;
   tmp1:=Copy(tmp1,i,length(tmp1)-i+1); // запоминаем оставшуюся часть файла вместе с расширением
   i:=StrToInt(tmp2);
   inc(i); // увеличиваем число на 1
   tmp2:=ExtractFilePath(AFileName)+'New_f'+IntToStr(i)+tmp1; // новое имя файла
<...>
end;
1
  • Спасибо получилось. Вопрос решен. 26 мар 2018 в 12:11

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.