Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
ВнизСоздание текстовых файлов последовательно. Найти похожие ветки
← →
Vik © (2012-04-29 16:41) [0]Подскажите пожалуйста, как при нажатии кнопки, создать текстовый файл, например с именем "1.txt", при втором нажатии создать файл "2.txt", и так далее?
← →
MBo © (2012-04-29 16:52) [1]Вопрос в создании файла или в сквозной нумерации?
← →
Vik © (2012-04-29 17:00) [2]Извините за наглость, но хотелось бы и то и то=) Заранее спасибо.
← →
MBo © (2012-04-29 17:18) [3]Assignfile + rewrite+closefile или TStringList.SaveToFile
Для нумерации - нужна глобальная переменная или поле формы
← →
SMTP (2012-05-01 10:19) [4]
MaxIndex := 1;
if FindFirst("*.txt", faAnyFile, SR) = 0 then
try
repeat
if TryStrToInt(Copy(SR.Name, 1, Pos(SR.Name, ".") - 1), NewIndex) then
MaxIndex := NewIndex;
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
SL := TStringList.Create;
try
SL.Add(IntToStr(MaxIndex));
SL.SaveToFile(IntToStr(MaxIndex) + ".txt");
finally
SL.Free;
end;
← →
SMTP (2012-05-01 10:20) [5]
if TryStrToInt(Copy(SR.Name, 1, Pos(SR.Name, ".") - 1), NewIndex) then
>>if TryStrToInt(Copy(SR.Name, 1, Pos(SR.Name, ".") - 1), NewIndex) and (NewIndex > MaxIndex) then
← →
Vik © (2012-05-01 13:14) [6]Спасибо. Неужели норм ответы появились
← →
KilkennyCat © (2012-05-01 21:33) [7]надеюсь, нормальный ответ это [3]?
← →
Vik © (2012-05-02 07:34) [8]Думаю да
← →
Inovet © (2012-05-02 08:34) [9]Вопрос странный. Почему именно текстовые? Т.е. можно сделать вывод: для любых других последовательная нумерация получается, значит её мы делать умеем, как и создавать файлы, а вот именно с текстовыми проблема возникает.
← →
Vik © (2012-05-02 15:01) [10]На примере текстовых я имел ввиду. Создание других файлов тоже не умею производить.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.059 c