Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Vik © (2012-04-29 16:41:00)
Подскажите пожалуйста, как при нажатии кнопки, создать текстовый файл, например с именем "1.txt", при втором нажатии создать файл "2.txt", и так далее?

Vik (2012-05-02 15:01:00) [1]
На примере текстовых я имел ввиду. Создание других файлов тоже не умею производить.

Inovet (2012-05-02 08:34:00) [2]
Вопрос странный. Почему именно текстовые? Т.е. можно сделать вывод: для любых других последовательная нумерация получается, значит её мы делать умеем, как и создавать файлы, а вот именно с текстовыми проблема возникает.

Vik (2012-05-02 07:34:00) [3]
Думаю да

KilkennyCat (2012-05-01 21:33:00) [4]
надеюсь, нормальный ответ это [3]?

Vik (2012-05-01 13:14:00) [5]
Спасибо. Неужели норм ответы появились

SMTP (2012-05-01 10:20:00) [6]
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

SMTP (2012-05-01 10:19:00) [7]
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;

MBo (2012-04-29 17:18:00) [8]
Assignfile + rewrite+closefile или TStringList.SaveToFile
Для нумерации - нужна глобальная переменная или поле формы

Vik (2012-04-29 17:00:00) [9]
Извините за наглость, но хотелось бы и то и то=) Заранее спасибо.

MBo (2012-04-29 16:52:00) [10]
Вопрос в создании файла или в сквозной нумерации?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »