@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", вы можете изменить это имя на свое усмотрение, и также изменять путь и расширение файла в соответствии с вашими потребностями.