Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Внизсквозная нумерация файлов Найти похожие ветки
← →
Daria (2006-02-08 11:00) [0]Всем привет! В результате работы проги создается файл. Например, 01.txt. Как сделать, чтобы файл сохранялся соответственно со след. номером? Т.Е. после первого запуска файл был 01, после второго - 02 и т.д.
← →
msguns © (2006-02-08 11:12) [1]Завести еще один, "служебный" файл, где вести список номеров файлов, откуда и определять новый №
← →
msguns © (2006-02-08 11:13) [2]Если же № сам по себе не играет роль, а нужна лишь уникальность и очередность, то лучше использоваить алгоритм получения носера из текущей даты-времени.
← →
Daria (2006-02-08 11:26) [3]чего??? поясни, пжлста
← →
Gero © (2006-02-08 11:28) [4]Сохраняй посленее число в отдельном файле.
← →
Desdechado © (2006-02-08 11:38) [5]что мешает определить номер последныего файла в папке?
← →
Daria (2006-02-08 11:52) [6]а как определить последний файл?
← →
wal © (2006-02-08 12:01) [7]
a:=1;
while FileExist(IntToStr(a)+".txt") do inc(a);
FileName := IntToStr(a)+".txt";
Если файлов не много, то приемлемо.
← →
Daria (2006-02-08 12:03) [8]файлов лом
← →
vovnuke © (2006-02-08 12:05) [9]Например просто уникальное имя файла можно получить так:
FileName := FormatDateTime("yyyymmddhhmmsszzz", Now);
← →
Daria (2006-02-08 12:11) [10]мне нужно именно 1,2,3 и т.п.
a:=1;
while FileExist(IntToStr(a)+".txt") do inc(a);
FileName := IntToStr(a)+".txt";
а вот в этом а все время равно 1, хотя файлов уже 2: 1 и 2
← →
Daria (2006-02-08 12:12) [11]ой-ой-ой. торможу. все нормально. спасибо!
← →
msguns © (2006-02-08 13:23) [12]>Daria (08.02.06 12:11) [10]
Способ дохлый, т.к. валится от первой же "дыры" в номерах: новый файл будет иметь не старший номер.
← →
Desdechado © (2006-02-08 13:24) [13]можно "с конца" начать :)
← →
Плохиш © (2006-02-08 15:47) [14]
> Daria (08.02.06 11:52) [6]
> а как определить последний файл?
0. Завести переменную для сохранения максимального номера и присвоить ей нуль.
1. Поиск файла FindFirst/FindNext
2. Взять название файла без расширения
3. Преобразовать в число, проверить, если это число больше сохранённого, то сохранить его.
4. Если все файлы кончились, то в сохранённой переменной находится максимальный использованный номер. Для получения нового номера достаточно произвести увеличение на единицу.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.508 c