Вверх ↑
Разработчик
Ответов: 26067
Рейтинг: 2121
#1: 2006-12-08 00:51:21 ЛС | профиль | цитата
Ntl-M,
вот одна из реализаций (code_715). Я тут подробнее рассмотрел вариант и нашел ошибку. Вот так правильнее будет
Add(MainForm,13496259,133,154)
{
Left=20
Top=105
link(onCreate,9329573:doWork2,[(231,195)])
}
Add(Memo,4480073,231,140)
{
Left=100
Top=10
Width=120
Height=165
Strings=#3:123|4:4432|2:44|2:11|4:1256|4:5556|2:76|
}
Add(Button,14972513,133,238)
{
Left=100
Top=190
Width=155
Caption="Поиск наибольшего"
link(onClick,2033655:doEvent1,[])
}
Add(ArrayEnum,12074175,245,245)
{
link(onItem,6112200:doConvert,[])
link(onEndEnum,12345786:doData,[(387,258)(387,258)])
link(Array,4480073:Array,[])
}
Add(If_else,14305400,343,245)
{
Type=2
Op2=Integer(0)
link(onTrue,4320906:doValue,[(385,251)(385,230)(340,230)(340,188)])
link(Op2,4320906:Value,[])
}
Add(Memory,4320906,350,182)
{
Default=Integer(0)
link(onData,202281:doOperation,[])
}
Add(Math,202281,399,182)
{
Op2=1
link(onResult,8312934:doString,[])
link(Op1,12074175:Index,[(405,172)(286,172)(286,292)(258,292)])
}
Add(Label,14056088,623,252)
{
Left=100
Top=220
Width=155
}
Add(FormatStr,8312934,448,182)
{
Mask="№ строки с наибольшим -- %1"
link(onFString,7401327:doValue,[])
}
Add(Hub,2033655,189,238)
{
link(onEvent1,9329573:doWork3,[(235,244)])
link(onEvent2,12074175:doEnum,[(233,251)(233,251)])
}
Add(HubEx,9329573,231,182)
{
link(onEvent,4320906:doClear,[])
}
Add(Convertor,6112200,294,245)
{
Mode=1
link(onResult,14305400:doCompare,[])
}
Add(InfoTip,14099918,196,77)
{
Info=#32:при проверке можно редактировать|
Width=106
Height=116
}
Add(Memory,7401327,511,182)
{
}
Add(DoData,12345786,511,252)
{
link(onEventData,14056088:doText,[])
link(Data,7401327:Value,[])
}
Add(InfoTip,14989286,490,112)
{
Info=#19:фиксатор результата|
Width=78
Height=200
}
пример 715 -- неправильный, его не применяй (удалил бы, да немогу).

карма: 22

0
файлы: 1code_715.txt [1.1KB] [398]