Вверх ↑
Разработчик
Ответов: 26170
Рейтинг: 2127
#1: 2011-05-06 14:19:13 ЛС | профиль | цитата
legandox писал(а):
а вот третий список он и есть черный

Фильтр, я так понимаю -- если есть в третьем, во второй не добавлять
------------ Дoбавленo в 14.19:
legandox, на, сам бы мог додуматься



Add(MainForm,15724380,175,252)
{
Width=362
Height=324
}
Add(ListBox,4653750,329,154)
{
Left=5
Top=5
Width=120
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,469,154)
{
Left=241
Top=4
Width=90
Height=225
Strings=#1:1|1:2|1:3|0:|
link(Str,12942369:Var2,[])
}
Add(ArrayRW,2140276,343,294)
{
link(onRead,16462542:doEvent1,[])
link(Array,4653750:Array,[])
link(Index,13225252:Var2,[])
}
Add(Label,5132935,434,238)
{
Left=200
Top=250
}
Add(Button,9912960,175,301)
{
Left=30
Top=240
Width=150
Height=35
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Сравнение"
Data=Integer(0)
link(onClick,13914004:doClear,[])
}
Add(Hub,16462542,392,294)
{
link(onEvent1,5132935:doText,[(420,300)(420,244)])
link(onEvent2,14468820:doFind,[])
}
Add(Case,11265614,532,301)
{
Value=Integer(-1)
link(onTrue,9314738:doFind,[])
}
Add(ArrayFind,14468820,483,301)
{
link(onFind,11265614:doCase,[])
link(Array,14151935:Array,[])
link(Index,4863878:Var2,[])
}
Add(Hub,4725874,273,294)
{
link(onEvent1,2140276:doRead,[])
link(onEvent2,4653750:doDelete,[(298,307)(298,174)])
}
Add(Memory,13914004,224,294)
{
Default=Integer(0)
link(onData,4725874:doEvent1,[])
}
Add(GetDataEx,13225252,350,270)
{
Angle=3
link(Data,13914004:Value,[(320,275)(320,338)(230,338)])
}
Add(ListBox,14262269,567,153)
{
Left=136
Top=4
Width=95
Height=225
Color=14737632
Strings=#1:4|1:5|1:6|0:|
}
Add(ArrayFind,9314738,581,308)
{
link(onFind,8918053:doCase,[])
link(Array,14262269:Array,[])
link(Index,4863878:Var3,[(594,275)])
link(Value,12942369:Var3,[(601,142)])
}
Add(Case,8918053,630,308)
{
Value=Integer(-1)
link(onTrue,14151935:doAdd,[(677,321)(677,130)(457,130)(457,160)])
}
Add(GetDataEx,4863878,490,270)
{
Angle=3
link(Data,13225252:Var3,[])
}
Add(GetDataEx,12942369,469,137)
{
Angle=3
link(Data,2140276:Item,[(412,142)(412,338)(349,338)])
}

карма: 22

1
Голосовали:legandox