В общем я то же проверил, опечатку я уже сразу заметил, у меня там с формами было напутано. Ну что у меня выводит: Когда запалняешь 1 или несколько едитов, то он правильно их пишет, но, он оставляет кучу запятых, и если например заполнил побольше едитов, он вставляет между этими запятыми цифры, вот код:
Код:
for i := 0 to Form9.ComponentCount - 1
do if Form9.Components[i].ClassType = TEdit
then if form1.Script.Text <> ''
then form1.Script.Text := form1.script.Text+','+TEdit(Form9.Components[i]).Text
else form1.Script.Text := TEdit(Form9.Components[i]).Text;
Вот, что получаем на выходе, например при 8 заполненых едитов.
,,,4 shop , //Ну это моя часть, так что не обращай внимание.
,1,1,1,1,1,1,1,1,1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,