Add(StrList,11935250,441,154)
{
Point(StrToFind)
Point(doGetIndex)
Point(onGetIndex)
link(StrToFind,2534804:Var1,[(461,138)])
link(onGetIndex,4023609:doAdd,[])
}
Add(Edit,5998970,490,84)
{
Left=10
Top=10
Width=150
Text="200000"
}
Add(MainForm,12828560,357,140)
{
link(onCreate,2459288:doFor,[])
}
Add(Button,5773014,308,343)
{
Left=15
Top=145
Caption="№2"
Data=Integer(0)
link(onClick,1138846:doStart,[])
AddHint(-10,-19,32,13,Caption)
}
Add(Memo,10733726,511,343)
{
Left=190
Top=145
Height=35
link(onChange,1138846:doStop,[(563,349)(563,394)(345,394)(345,356)])
}
Add(TimeCounter,1138846,357,343)
{
link(onStart,12689617:doFind,[])
link(onStop,15474626:doText,[])
}
Add(Label,15474626,399,350)
{
Left=77
Top=147
}
Add(For,2459288,399,154)
{
End=200000
link(onEvent,11935250:doAdd,[])
}
Add(ArrayFind,12689617,455,343)
{
ArrayType=1
link(onFind,10733726:doAdd,[])
link(Array,11935250:Array,[])
link(Index,16108363:Value,[])
link(Value,2534804:Var2,[(475,326)(496,326)])
}
Add(Memory,16108363,462,287)
{
Default=Integer(0)
}
Add(Button,5434470,308,196)
{
Left=15
Top=60
Caption="№1"
Data=Integer(0)
link(onClick,6984000:doStart,[])
AddHint(-10,-21,32,13,Caption)
}
Add(Memo,4023609,511,161)
{
Left=190
Top=60
Height=35
link(onChange,6984000:doStop,[(563,167)(563,239)(345,239)(345,209)])
link(Str,2534804:Var3,[(517,138)])
}
Add(TimeCounter,6984000,357,196)
{
link(onStart,11935250:doGetIndex,[])
link(onStop,4772009:doText,[])
}
Add(Label,4772009,399,203)
{
Left=77
Top=62
}
Add(GetDataEx,2534804,490,133)
{
link(Data,5998970:Text,[])
}
Ответов: 1536
Рейтинг: 176
|
|||
Можно и так:
|
|||
карма: 1 |
|