Создание текстовых файлов последовательно.

← →
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]?

Думаю да

Вопрос странный. Почему именно текстовые? Т.е. можно сделать вывод: для любых других последовательная нумерация получается, значит её мы делать умеем, как и создавать файлы, а вот именно с текстовыми проблема возникает.

На примере текстовых я имел ввиду. Создание других файлов тоже не умею производить.

Создание текстовых файлов последовательно. Найти похожие ветки