Geka писал(а):
подсчет тех слов которые 4 и более буквAdd(MainForm,7452682,392,91)
{
Left=20
Top=105
Width=382
Height=291
}
Add(Memo,13622454,168,140)
{
Left=10
Top=35
Width=350
Height=190
Enabled=1
Strings=#39:подсчет тех слов которые 4 и более букв|
Point(onSetFocus)
Point(doEnabled)
link(onSetFocus,14595853:doTimer,[])
}
Add(ArrayEnum,10282837,182,245)
{
link(onItem,6400444:doLoad,[])
link(Array,13622454:Array,[])
}
Add(CharArray,6400444,231,245)
{
link(onLoad,11254863:doEnum,[(286,251)(286,290)(219,290)(219,314)])
}
Add(ArrayEnum,11254863,231,308)
{
link(onItem,10531239:doCase,[])
link(onEndEnum,4196493:doEvent2,[(277,321)(277,356)])
link(Array,6400444:Array,[])
}
Add(Case,10531239,301,308)
{
Value=String( )
link(onNextCase,11903046:doNext,[])
link(onTrue,5564262:doEvent1,[])
}
Add(Counter,11903046,462,308)
{
}
Add(If_else,8075822,462,364)
{
Type=4
Op2=Integer(4)
link(onTrue,11695109:doNext,[])
link(Op1,11903046:Count,[])
}
Add(Hub,5564262,350,315)
{
link(onEvent1,4196493:doEvent1,[(394,321)(394,349)])
link(onEvent2,11903046:doReset,[])
}
Add(Counter,11695109,532,364)
{
link(onNext,15601908:doText,[])
}
Add(Hub,7812049,28,238)
{
OutCount=5
link(onEvent2,10282837:doEnum,[])
link(onEvent3,2709379:doWork1,[])
link(onEvent4,2111105:doReset,[(69,265)(69,167)])
}
Add(Edit,15601908,588,364)
{
Left=170
Top=10
Text="0"
}
Add(Hub,4196493,406,343)
{
InCount=2
OutCount=1
link(onEvent1,8075822:doCompare,[(450,349)(450,370)])
}
Add(Counter,2111105,301,147)
{
link(onNext,7452682:doCaption,[(349,153)(349,97)])
}
Add(Timer,14595853,238,147)
{
Interval=1000
Enable=1
AutoStop=60
Point(onStop)
link(onTimer,2111105:doNext,[])
link(onStop,7812049:doEvent1,[(282,160)(282,202)(16,202)(16,244)])
}
Add(Button,2253325,14,315)
{
Left=10
Top=10
Width=150
Caption="RESET"
link(onClick,5145385:doEvent1,[])
}
Add(ChanelToIndex,2709379,119,252)
{
link(onIndex,13622454:doEnabled,[(159,258)(159,188)])
}
Add(Hub,5145385,63,315)
{
OutCount=3
link(onEvent1,13622454:doClear,[(131,321)(131,153)])
link(onEvent2,2709379:doWork2,[(107,328)(107,265)])
link(onEvent3,11695109:doReset,[(118,335)(118,384)])
}