Вверх ↑
Ответов: 64
Рейтинг: 15
#1: 2017-05-14 18:37:56 ЛС | профиль | цитата
nesco, круто спасибо.

Другое решение нетривиальной задачи

Add(MainForm,2953706,126,140)
{
link(onCreate,5766131:doEnum,[])
}
Add(FileStream,1374420,308,91)
{
link(onLoad,2439570:doConvert,[(350,97)(350,131)(296,131)(296,146)])
link(FileName,16324795:Value,[])
}
Add(StreamConvertor,2439570,308,140)
{
Mode=4
Symbol="*"
link(onResult,1791558:doEnum,[])
link(Data,1374420:Stream,[])
}
Add(Str_Enum,1791558,357,140)
{
Delimiter="*"
link(onEnum,350085:doLength,[])
}
Add(Length,350085,406,140)
{
link(onLength,14245398:doCompare,[])
}
Add(If_else,14245398,448,140)
{
Type=1
Op2=Integer(3)
link(onFalse,13642079:doData,[(491,153)(491,187)(345,187)(345,202)])
}
Add(DoData,13642079,364,196)
{
link(onEventData,8100567:doValue,[])
link(Data,1791558:Part,[])
}
Add(Copy,4408847,448,196)
{
Position=2
Count=2
link(onCopy,13659489:doCompare,[])
}
Add(Memory,8100567,406,196)
{
link(onData,4408847:doCopy,[])
}
Add(If_else,13659489,497,196)
{
Op2=String(:\)
link(onTrue,12382021:doData,[(539,202)(539,237)(394,237)(394,251)])
}
Add(DoData,12382021,406,245)
{
Data=String()
link(onEventData,8405695:doText,[])
link(Data,8100567:Value,[])
}
Add(Edit,8405695,448,245)
{
Left=5
Top=25
Width=382
}
Add(DropFile,2308361,217,42)
{
link(onDropFile,8045379:doEvent1,[])
link(onEndDrop,16181761:doEvent1,[(261,55)(261,97)])
}
Add(Memory,16324795,308,42)
{
}
Add(Application,12841581,210,105)
{
}
Add(ArrayEnum,5766131,217,154)
{
link(onItem,8045379:doEvent2,[(269,160)(269,55)])
link(onEndEnum,16181761:doEvent2,[(261,167)(261,104)])
link(Array,12841581:Params,[])
}
Add(Hub,16181761,280,91)
{
InCount=2
OutCount=1
link(onEvent1,1374420:doOpen,[])
}
Add(Hub,8045379,280,42)
{
InCount=2
OutCount=1
link(onEvent1,16324795:doValue,[])
}
карма: 0

0
Редактировалось 2 раз(а), последний 2017-05-14 18:39:28