Вверх ↑
Разработчик
Ответов: 26170
Рейтинг: 2127
#1: 2011-09-28 17:12:31 ЛС | профиль | цитата
-= DriveR =- писал(а):
Я пол дня голову ломал как все это сделать

На вот тебе еще одну, для коллекции. Работает как у 1nd1g0 (везде пробелы разделитель), не упрощал, и на иммитаторе, для наглядности. Альтернтивный вариант, тсзать

code_25280.txt
------------ Дoбавленo в 17.12:
А вот и упрощенный вариант


Add(MainForm,15202770,112,140)
{
Width=315
link(onCreate,12036341:doEnum,[])
}
Add(Application,7342048,112,91)
{
}
Add(ArrayEnum,12036341,175,154)
{
link(onItem,16061690:doEvent1,[])
link(Array,13621643:Array,[])
}
Add(Memo,12404861,637,217)
{
Left=135
Top=10
Width=140
Height=210
}
Add(Edit,2160139,581,168)
{
Left=10
Top=10
Width=110
Text=""
}
Add(Replace,2627151,581,217)
{
SubStr="""
link(onReplace,12404861:doAdd,[])
}
Add(StrList,1262865,287,126)
{
Strings=#2:/k|2:/m|
Point(onGetIndex)
Point(doGetIndex)
link(onGetIndex,11807493:doCase,[])
}
Add(IndexToChanel,6459397,441,203)
{
@Hint=#30:Переключатель команда/параметр|
Point(Data)
Point(Index)
link(onEvent2,4851722:doEvent,[])
link(Index,9939769:State,[])
AddHint(107,-107,196,13,@Hint)
}
Add(Case,11807493,336,133)
{
Value=Integer(-1)
link(onNextCase,82049:doValue,[])
}
Add(Switch,9939769,448,119)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(State)
Point(doOn)
}
Add(IndexToChanel,4851722,504,210)
{
@Hint=#18:Коммутатор команд |
Point(Index)
link(onEvent1,2160139:doText,[(558,216)(558,174)])
link(onEvent2,2627151:doReplace,[])
link(Index,82049:Value,[(510,188)(398,188)])
AddHint(44,-90,121,13,@Hint)
}
Add(Memory,82049,392,133)
{
link(onData,9939769:doOn,[])
}
Add(Copy,4748007,287,77)
{
Position=1
Count=1
link(onCopy,5939330:doCase,[])
}
Add(Case,5939330,336,77)
{
Value=String(/)
link(onTrue,9939769:doReset,[(435,90)(435,132)])
}
Add(Hub,16061690,231,154)
{
OutCount=3
link(onEvent1,4748007:doCopy,[(265,160)(265,83)])
link(onEvent2,6459397:doEvent,[(265,167)(265,209)])
link(onEvent3,1262865:doGetIndex,[])
}
Add(StrList,13621643,161,77)
{
Strings=#2:/k|11:192.168.0.1|2:/m|13:"привет Вася"|13:"привет Петя"|
}

карма: 22

0
файлы: 1code_25280.txt [2KB] [209]