Создание сразу нескольких txt файлов

[Nice42ru]

Есть ListBox1 в котом записаны значения
C:\
C:\Save\
C:\module\
(кол-во строк может изминить пользователь)
при нажатии на кнопку в них во всех должен создаться текстовой файл

Пробывал делать следующее:

var
F: TextFile;
i: Integer;
begin
AssignFile(F,listbox1.items[i] + 'new.txt');

Но так неполучается и выскакивает ошибка. Как быть?

[evg_m]

добавить

i:=0;

[Nice42ru]

ошибки нету, но файл появляться только в первой папке и всё

procedure TForm1.Button2Click(Sender: TObject);
var
F: TextFile;
i: Integer;
begin
i:=0;
AssignFile(F,listbox1.items[i] + 'new.txt');
Rewrite(F);
Write(F, memo1.text);
CloseFile(F);
end;

[evg_m]

i:=0;
listbox1.items[i] //что означает эта запись по твоему

подсказка нумерация элементов массива в delphi начинается с нуля

[raxp]

...а кто i перебирать буде?

[Nice42ru]

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

i:=0;
listbox1.items[i] //что означает эта запись по твоему

подсказка нумерация элементов массива в delphi начинается с нуля

это строка, как я думал, означает чтобы все строчки использовались, а как их перебирать можете обьяснить?

[Nice42ru]

Обьясните как переберать i , у меня ничего невыходит!

[Deamonig]

по циклу

For i:=начальное значение to конечное значение do
begin
//здесь пишем то что нужно выполнить 
end;

[Nice42ru]

так если там будет 99 папок это мне надо будет писать 99 таких циклов?

[Alt]

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

так если там будет 99 папок это мне надо будет писать 99 таких циклов?

Используй внешний цикл.