code_23739.txt
------------ Дoбавленo в 13.17:
Или с элементом управления массивом, то вот так
Add(MainForm,2953706,182,238)
{
Width=592
Height=324
}
Add(ListBox,4653750,315,147)
{
Left=5
Top=5
Width=280
Height=225
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|0:|
}
Add(ListBox,14151935,455,147)
{
Left=291
Top=4
Width=280
Height=225
Strings=#1:1|1:2|1:3|0:|
link(Str,2140276:Item,[(461,135)(398,135)(398,331)(335,331)])
}
Add(ArrayRW,2140276,329,287)
{
link(onRead,16462542:doEvent1,[])
link(Array,4653750:Array,[])
}
Add(Hub,10737871,238,287)
{
link(onEvent1,2140276:doRead,[])
link(onEvent2,4653750:doDelete,[(284,300)(284,167)])
}
Add(Label,5132935,420,245)
{
Left=220
Top=240
}
Add(Button,9912960,126,287)
{
Left=30
Top=240
Width=150
Height=35
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Сравнение"
Data=Integer(0)
link(onClick,11163080:doData,[])
}
Add(Hub,16462542,378,287)
{
link(onEvent1,5132935:doText,[(406,293)(406,251)])
link(onEvent2,14468820:doFind,[])
}
Add(DoData,11163080,182,287)
{
Data=Integer(0)
link(onEventData,10737871:doEvent1,[])
}
Add(Case,11265614,518,294)
{
Value=Integer(-1)
link(onTrue,14151935:doAdd,[(566,307)(566,125)(443,125)(443,153)])
}
Add(ArrayFind,14468820,469,294)
{
link(onFind,11265614:doCase,[])
link(Array,14151935:Array,[])
link(Index,5276309:Value,[])
}
Add(Memory,5276309,476,245)
{
Default=Integer(0)
}