nesco писал(а):
Но есть один недостатокТак это не недостаток, а особенность работы программы

Add(Application,7342048,175,147)
{
}
Add(ArrayEnum,12036341,238,210)
{
link(onItem,2677586:doCompare,[])
link(Array,13621643:Array,[])
}
Add(StrList,13621643,224,133)
{
Strings=#2:/k|11:192.168.0.1|2:/m|13:"привет Вася"|13:"привет Петя"|14:"Hello world!"|2:/?|7:"Do it"|
}
Add(StrMask,2677586,294,210)
{
@Hint=#22:Детектор ключпараметр|
Mask="/*"
link(onFalse,10532779:doEvent,[(347,216)(347,272)])
link(onTrue,1262865:doGetIndex,[])
AddHint(-41,-101,146,13,@Hint)
}
Add(IndexToChanel,9455467,546,182)
{
@Hint=#42:Коммутатор действий при нахождении команды|
Count=4
link(onEvent4,8549105:doMessage,[])
AddHint(-7,-72,148,26,@Hint)
}
Add(StrList,1262865,490,175)
{
Strings=#0:|2:/k|2:/m|2:/?|
Point(onGetIndex)
Point(doGetIndex)
Point(Index)
Point(doGetString)
link(onGetIndex,9455467:doEvent,[])
}
Add(IndexToChanel,10532779,511,266)
{
@Hint=#74:Коммутатор обработки параметров в зависимости от предшествовавшей команды |
Count=3
Point(Index)
link(onEvent2,2160139:doText,[(569,279)(569,244)])
link(Index,1262865:Index,[])
link(onEvent3,7061935:doEvent1,[])
AddHint(-139,52,200,39,@Hint)
}
Add(MainForm,8166335,168,196)
{
Width=315
link(onCreate,12036341:doEnum,[])
}
Add(Memo,12404861,784,280)
{
Left=135
Top=10
Width=140
Height=210
}
Add(Edit,2160139,595,238)
{
Left=10
Top=10
Width=110
Text=""
}
Add(Replace,2627151,707,280)
{
SubStr="""
link(onReplace,12404861:doAdd,[])
}
Add(CounterEx,5103177,595,287)
{
Max=1
Point(onThroughMax)
link(onThroughMax,11600638:doWork,[])
}
Add(Hub,7061935,567,280)
{
link(onEvent1,2627151:doReplace,[])
link(onEvent2,5103177:doNext,[])
}
Add(Message,8549105,609,203)
{
Message="/?
/k <параметр>
/m <параметр> <параметр>"
link(onMessage,7350937:doWork,[])
}
Add(LineBreakEx,11600638,637,294)
{
Caption="reset"
}
Add(LineBreakEx,4795109,364,224)
{
Caption="reset"
Type=1
link(OnEvent,11866657:doData,[])
}
Add(LineBreakEx,7350937,658,203)
{
Caption="reset"
}
Add(DoData,11866657,441,224)
{
Data=Integer(0)
link(onEventData,1262865:doGetString,[])
}
------------ Дoбавленo в 18.09:
Кстати, вроде кавычки убирать не нужно будет в реальной схеме, парсер параметров командной строки их уберёт, если правильно помню.