------------ Дoбавленo в 00.03:
Да хоть вперемешку
Add(MainForm,4814681,147,217)
{
Width=362
Height=277
}
Add(Edit,5942762,98,273)
{
Left=15
Top=185
Width=320
Text=""
link(onEnter,10433193:doModify,[])
}
Add(ListBox,2765320,490,217)
{
Left=15
Top=10
Width=320
Height=170
}
Add(StrList,7518808,210,238)
{
Strings=#6:привет|9:как дела?|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,8984629:doGetString,[])
}
Add(StrList,8984629,259,203)
{
Strings=#8:привет))|7:хорошо)|0:|
Point(doGetString)
Point(onGetString)
Point(Index)
link(onGetString,7312517:doModify,[])
}
Add(If_else,12021763,371,210)
{
Op2=Integer(-1)
link(onTrue,14760334:doData,[])
link(onFalse,4307175:doWork2,[])
link(Op1,8984629:Index,[(377,198)(359,198)(359,267)(286,267)])
}
Add(DoData,14760334,427,210)
{
Data=String(А хрен его знает...)
link(onEventData,4307175:doWork1,[(480,216)])
}
Add(HubEx,4307175,476,217)
{
link(onEvent,2765320:doAdd,[])
}
Add(StrCase,10433193,147,280)
{
link(onModify,7518808:doGetIndex,[])
}
Add(StrCase,7312517,308,210)
{
Type=3
link(onModify,12021763:doCompare,[])
}