ExPress писал(а):
помогите решить задачку
Add(Memo,15708483,336,217)
{
Left=30
Top=50
Width=155
Height=185
Strings=#6:0-70=0|9:71-74=500|9:75-84=700|9:85-90=900|10:91-97=1500|11:98-100=2000|12:101-109=2300|12:110-119=2600|12:120-129=2900|12:130-139=3100|12:140-149=3400|0:|
ScrollBars=3
}
Add(MainForm,2953706,21,105)
{
Width=232
Height=311
}
Add(ArrayEnum,36616,350,287)
{
link(onItem,5578264:doSplit,[])
link(Array,15708483:Array,[])
}
Add(Button,6489882,196,287)
{
Left=130
Top=5
Height=30
link(onClick,9486576:doEvent2,[])
}
Add(Edit,5253048,532,112)
{
Left=35
Top=5
Width=80
Height=30
Text="0"
DataType=1
link(onEnter,9486576:doEvent1,[(571,125)(571,153)(249,153)(249,286)])
}
Add(MultiStrPart,5578264,406,287)
{
Char="="
Count=1
Direct=1
link(onSplit,12807020:doMT,[])
}
Add(Message,14194657,672,294)
{
link(Message,5578264:Part1,[(678,271)(725,271)(725,350)(412,350)])
}
Add(Between,9477037,532,280)
{
link(Data,6933167:Var,[])
link(onTrue,15554192:doEvent1,[])
}
Add(Hub,15554192,588,287)
{
link(onEvent1,5199959:In,[(612,293)(612,286)])
link(onEvent2,14194657:doMessage,[])
}
Add(LineBreak,16329873,301,294)
{
link(Out,36616:doStop,[])
Primary=[5199959,329,-14]
}
Add(Message,419334,686,217)
{
Caption="не вошел в интервал"
}
Add(Hub,9486576,259,280)
{
InCount=2
link(onEvent1,6933167:doConvert,[(284,286)(284,209)])
link(onEvent2,36616:doEnum,[])
}
Add(MT_String,12807020,469,280)
{
Delimeter="-"
link(onResult,9477037:doBetween,[])
}
Add(ConvertorEx,6933167,532,203)
{
Mode=1
link(Data,5253048:Text,[])
}