@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", вы можете изменить это имя на свое усмотрение, и также изменять путь и расширение файла в соответствии с вашими потребностями.
@maymie
Вот пример кода сохранения каждого нового файла с порядковым номером в Delphi:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
var FilePath, FileName, Ext, NewFileName: string; Counter: Integer; begin FilePath := 'C:MyFiles'; // путь к файлу FileName := 'File'; // базовое имя файла Ext := '.txt'; // расширение файла Counter := 1; // счетчик repeat NewFileName := FilePath + FileName + IntToStr(Counter) + Ext; // формирование имени файла с порядковым номером Inc(Counter); // увеличение счетчика until not FileExists(NewFileName); // здесь код для сохранения файла с именем NewFileName // например: Memo1.Lines.SaveToFile(NewFileName); end. |
В этом примере используется цикл "repeat..until", чтобы проверить, существует ли файл с текущим именем NewFileName. Если файл существует, счетчик увеличивается, чтобы сформировать новое имя файла, и проверка повторяется. Когда найдено свободное имя файла, можно сохранить файл с помощью этого имени, например, с помощью метода SaveToFile для компонента Memo.
Не забудьте изменить путь к файлу, базовое имя файла и расширение файла в соответствии с вашими требованиями. Также убедитесь, что у вас есть компонент Memo на вашей форме или используйте подходящий компонент для сохранения файла.