Вверх ↑
Ответов: 758
Рейтинг: 111
#1: 2019-09-08 18:27:13 ЛС | профиль | цитата
Igor08 писал(а):
одни и те же действия повторялись, только с разными входными данными

У Вас два списка. И если нужно сделать все варианты Размещений двух множеств по два,
то это делается так

Add(MainForm,7631360,350,210)
{
Height=616
link(onCreate,6764378:doEnabled,[])
}
Add(StrList,8441797,469,161)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|0:|
}
Add(StrList,9680646,532,161)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|2:11|0:|
}
Add(Button,6764378,406,224)
{
Left=145
Top=535
Width=65
Height=25
Enabled=1
Caption="Расчет"
Point(doEnabled)
link(onClick,4346486:doEnum,[])
}
Add(ArrayEnum,4346486,483,224)
{
link(onItem,15313221:doEnum,[])
link(Array,8441797:Array,[])
}
Add(ArrayEnum,15313221,546,224)
{
link(onItem,16660885:doStrCatDlm,[])
link(Array,9680646:Array,[])
}
Add(StrCatDelim,16660885,609,224)
{
Delimiter=";"
link(onStrCatDlm,1023000:doAdd,[])
link(Str1,4346486:Item,[(615,215)(601,215)(601,264)(489,264)])
}
Add(StringTable,1023000,665,224)
{
Left=10
Top=10
Width=360
Height=515
Columns=#1:1|1:2|
}
карма: 1

0