Как сохранять каждый новый файл с порядковым номером в delphi?

Пользователь

от maymie , в категории: Другие , 7 месяцев назад

Как сохранять каждый новый файл с порядковым номером в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от carlo.cummerata , 7 месяцев назад

@maymie 

Вы можете сохранять каждый новый файл с порядковым номером в Delphi, используя следующий код:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
var
  FilePath, FileName, Ext, NewFileName: string;
  Counter: Integer;
begin
  FilePath := 'C:MyFiles'; // Путь к файлу
  FileName := 'MyFile'; // Базовое имя файла
  Ext := '.txt'; // Расширение файла
  Counter := 1; // Счетчик

  repeat
    NewFileName := FilePath + FileName + IntToStr(Counter) + Ext; // Формирование имени файла с порядковым номером
    Inc(Counter); // Увеличение счетчика
  until not FileExists(NewFileName);

  // Здесь код для сохранения файла с именем NewFileName
end.


Этот код будет проверять, существует ли файл с именем NewFileName, и если да, увеличивать счетчик и формировать новое имя файла. Когда найдено свободное имя файла, можно сохранить файл с помощью этого имени.


Обратите внимание, что в этом примере мы используем базовое имя файла "MyFile", вы можете изменить это имя на свое усмотрение, и также изменять путь и расширение файла в соответствии с вашими потребностями.