создать файлы с номерами по порядку

[volodya100]

Здравствуйте! Подскажите новичку, как в delphi создать файлы по числовому порядку, например 1.txt 2.txt 3.txt ?
Будет примерно выглядеть так:

function txt_(data:string):string;
var
f:textfile;
begin
AssignFile(f,NAME+'.txt');
rewrite(f);
write(f,data);
CloseFile(f);
end;

Т.е. как чтобы при каждом вызове функции, создавался файл с именем на 1 больше предыдущего
Спасибо!

[GunSmoker]

function txt_(name, data:string):string;

[volodya100]

Сообщение от GunSmoker

function txt_(name, data:string):string;

я имел ввиду алгоритм создания файлов по числовому порядку

[GunSmoker]

for X := 1 to 10 do
begin
  txt_(IntToStr(X), 'show me the money');
end;

[Serge_Bliznykov]

Сообщение от volodya100

я имел ввиду алгоритм создания файлов по числовому порядку

так Вам не код нужен, а алгоритм?...
извольте!

есть много вариантов.
1) создаём файлы по порядке вне зависимости от того, есть уже такие файлы там, где мы создаём или нет.
для этого:
a) заводите глобальную переменную (или добавляете переменную в описание вашей формы)
б) на создание формы ставите туда начальное значение счётчика (например, 1)
в) в вашей функции создания файла пишете что-то вроде:
AssignFile(f,NAME+IntToStr(Счётчик) +'.txt');
inc(Счётчик);

всё.

второй вариант.
то же самое, что и первый, но только перед записью проверяем наличие такого файла и увеличиваем счётчик до тех пор, пока файл есть - тогда наши файлы по порядку будут "заполнять пустоты" в имеющихся файлах...

третий вариант.
написать простенькую функцию, которая через findfirst будет находить файл с максимальным числом в имени. потом Вы к этому числу прибавляете единичку и создаёте файл с полученным номером.

достаточно? или ещё нужно?