Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2013-12-20 02:06:05 ЛС | профиль | цитата
Вот, набросал на скорую руку, специально для данного алгоритма

Add(MainForm,2953706,105,133)
{
Width=369
Position=1
link(onCreate,6676004:doFor,[])
}
Add(For,6676004,161,147)
{
Start=1995
End=2028
link(onEvent,3974999:doEnum,[])
}
Add(FormatStr,2787934,259,147)
{
Mask="%1.%2.01"
Point(FString)
link(onFString,5302835:doConvert,[])
link(Str1,6676004:Position,[(265,138)(251,138)(251,187)(167,187)])
}
Add(Memo,16617369,518,147)
{
Left=25
Top=10
Width=305
Height=230
ScrollBars=2
}
Add(DateConvertor,5302835,308,147)
{
Mode=4
Format="yyyy.MM.dd"
Point(DayOfWeek)
link(onResult,4693700:doCompare,[])
}
Add(If_else,4693700,364,147)
{
Op2=Integer(5)
link(onTrue,11407204:doConvert,[])
link(Op1,5302835:DayOfWeek,[(370,138)(356,138)(356,187)(314,187)])
}
Add(DateConvertor,11407204,413,147)
{
Mode=8
Format="yyyy.MM.dd"
Point(Data)
link(onResult,12303961:doConvert,[])
link(Data,2787934:FString,[(419,138)(405,138)(405,194)(265,194)])
}
Add(DateConvertor,12303961,462,147)
{
Mode=9
Format="yyyy MMMM"
link(onResult,16617369:doAdd,[])
}
Add(StrList,16009703,196,70)
{
Strings=#2:01|2:03|2:05|2:07|2:08|2:10|2:12|
Point(doGetString)
Point(onGetString)
}
Add(ArrayEnum,3974999,210,147)
{
link(onItem,2787934:doString,[])
link(Array,16009703:Array,[])
}

карма: 22

0