как сделать, если список изменяется?
[code:1]Add(ListBox,14022085,182,182) {
Left=75
Top=30
Width=215
Height=185
Point(doSelect)
Point(String)
Point(Index)
Point(onDblClick)
link(onDblClick,5888901:doData,[])
}
Add(MediaPlayer,6570693,154,287)
{
link(onEndPlay,11008782:doOperation,[])
}
Add(DoData,5888901,273,203)
{
link(onEventData,9274301:doWork2,[(317,209)(317,209)])
link(Data,16664653:Var3,[(279,193)(247,193)(247,254)])
}
Add(Math,11008782,210,287)
{
Op2=1
link(onResult,1684351:doEvent1,[])
link(Op1,16664653:Var2,[(216,283)(216,304)])
}
Add(Hub,1684351,259,287)
{
link(onEvent1,14022085:doSelect,[(319,293)(319,267)(172,267)(172,230)])
link(onEvent2,9274301:doWork3,[(326,300)])
}
Add(ArrayRW,13151026,350,203)
{
link(onRead,6570693:doPlay,[(401,209)(401,340)(124,340)(124,293)])
link(Array,3492746:Array,[(356,191)(356,191)])
}
Add(GetDataEx,16664653,203,245)
{
link(Data,14022085:Index,[(216,245)(216,259)])
}
Add(StrList,3492746,336,133)
{
}
Add(HubEx,9274301,322,196)
{
link(onEvent,13151026:doRead,[(344,209)(344,209)])
}
Add(Button,5922899,98,77)
{
Left=80
Top=225
Caption="Open "
link(onClick,16212697:doExecute,[])
}
Add(ODialog,16212697,154,77)
{
Select=1
link(onExecute,10095030:doEvent1,[])
}
Add(FilePart,5205212,266,77)
{
link(onName,14022085:doAdd,[(313,90)(313,158)(172,158)(172,188)])
}
Add(Hub,10095030,210,77)
{
link(onEvent1,5205212:doPart,[])
link(onEvent2,3492746:doAdd,[(255,90)(255,139)])
}
[/code:1]