Последовательная запись?

[CraftR14]

Здраствуйте, есть такая задача написать все результаты по определенному количеству файлов
т.е.
в CMD.exe
relult.exe /stext 1.txt
relult.exe /stext 2.txt
relult.exe /stext 3.txt
relult.exe /stext q.txt
relult.exe /stext s.txt
relult.exe /stext fg.txt
relult.exe /stext Resultat.txt
relult.exe /stext 8.txt
и так не определенное количество файлов
как сделать так чтоб к примеру со ставить список
этих файлов к примеру
spisok.txt и в него написать все файлы >>
1.txt
2.txt
3.txt
4.txt,....


Но вот как все это реавлизовать? вот в чом вопрос))
Помогите пожалуйста)) желательно на данном примере ))))

Буду примного благодарен))(С меня +++ ))) )

[Arigato]

Используйте команду for

[CraftR14]

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

Используйте команду for

Поподробней пожалуйста))

[Arigato]

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

Поподробней пожалуйста))

Без проблем, подробнее:

for /?

[CraftR14]

Ммм нет это не совсем то)
мне к примеру нужно чтоб составить список файлов НО они там будут совсем разные
1.txt
2.txt
123.txt
fmu.txt
т.е. совсем разные...
и я как бы хотел это через делфи делать...

т.е.
делаю так
WinExec (PChar('result.exe /stext '+edit1.Text), SW_SHOWDEFAULT);
а в edit1.text я тупо вставляю сначала 123.txt потом 546.txt и так далее)) а хотелось бы все это авторизировать))
но не знаю как((

Прошу помощи

[Arigato]

for /f %%i in (spisok.txt) do relult.exe /stext %%i

P.S. Стоп, я не понял, это в Делфи надо сделать или в СMD?

[CraftR14]

Нет с этим cmd мне такое не особо нравится(( а есть какой нить способ сделать такое же действие только в делфи? т.е. не используя FOR )

[Arigato]

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

а есть какой нить способ сделать такое же действие только в делфи?

Загружайте файл в TStringList или читайте файл вручную построчно.

[Serge_Bliznykov]

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

нужно чтоб составить список файлов НО они там будут совсем разные

Составить как? Откуда Вы берёте имена файлов? если Вы их реально руками все добавляете, тогда кидайте на форму Memo и заполняйте списком файлов (каждый файл в отдельной строке) и дальше:

for i:=0 to Memo1.Lines.Count-1 do
  WinExec (PChar('result.exe /stext '+Memo1.Lines[i]), SW_SHOWDEFAULT);

если же файлы - это все TXT файлы, находящиеся в каком-то каталоге, тогда читайте последовательно имена файлов через FindFirst/FindNext....

[CraftR14]

Спасибо Всем!!
Но теперь возник еще один вопрос делаю вот так

 i,j:Integer;
begin
for i:=0 to Memo2.Lines.Count-1 and j:=0 to Memo3.Lines.Count-1 do

Но ругается((