Вверх ↑
Ответов: 44
Рейтинг: 0
#1: 2019-09-07 16:37:32 ЛС | профиль | цитата
Здравствуйте. Так можно выполнить программу? Если нет, то как по другому, подскажите пожалуйста.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,147,154)
{
link(onCreate,6764378:doEnabled,[])
}
Add(StrList,8441797,336,70)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|0:|
}
Add(StrList,9680646,497,70)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|0:|
}
Add(Button,6764378,210,168)
{
Left=140
Top=165
Width=65
Height=25
Enabled=1
Caption="Расчет"
Point(doEnabled)
link(onClick,13410931:doEvent1,[])
}
Add(ArrayEnum,4346486,336,168)
{
link(onItem,817057:doValue,[])
link(onEndEnum,1934759:doNext,[(376,181)(376,244)])
link(Array,8441797:Array,[(342,142)(356,142)])
}
Add(ArrayEnum,15313221,483,168)
{
link(onItem,13483133:doValue,[])
link(onEndEnum,8663432:doEvent1,[(527,181)(527,230)])
link(Array,9680646:Array,[(489,142)(517,142)])
}
Add(Memory,817057,413,168)
{
link(onData,15313221:doEnum,[])
}
Add(MathParse,5004562,644,168)
{
link(onResult,6669677:doEvent1,[])
link(X1,817057:Value,[(650,156)(534,156)(534,212)(419,212)])
link(X2,13483133:Value,[(657,148)(619,148)(619,212)(580,212)])
}
Add(Memory,13483133,574,168)
{
link(onData,5004562:doCalc,[])
}
Add(Label,3978511,784,217)
{
Left=50
Top=50
}
Add(StrList,9765544,609,70)
{
}
Add(Hub,8663432,539,224)
{
link(onEvent1,9680646:doClear,[(565,230)(565,145)(485,145)(485,83)])
link(onEvent2,6424699:doEnum,[(577,237)(577,251)])
}
Add(Hub,6669677,693,168)
{
link(onEvent1,3978511:doText,[(730,174)(730,223)])
link(onEvent2,9765544:doAdd,[(719,181)(719,129)(583,129)(583,76)])
}
Add(ArrayEnum,6424699,602,245)
{
link(onItem,9680646:doAdd,[(640,251)(640,152)(471,152)(471,76)])
link(onEndEnum,9765544:doClear,[(685,258)(685,143)(597,143)(597,83)])
link(Array,9765544:Array,[(608,180)(629,180)])
}
Add(Counter,1934759,385,238)
{
Max=2
link(onNext,9923830:doCompare,[(433,244)(433,258)])
}
Add(If_else,9923830,448,252)
{
Op2=Integer(2)
link(onTrue,7504652:doExecute,[(506,258)(506,300)])
link(onFalse,1768033:doWork2,[(492,265)(492,221)(298,221)(298,174)])
link(Op1,1934759:Count,[(454,240)(422,240)(422,282)(391,282)])
}
Add(Hub,13410931,252,168)
{
link(onEvent1,1934759:doReset,[(284,174)(284,258)])
link(onEvent2,1768033:doWork3,[(312,181)])
}
Add(HubEx,1768033,308,168)
{
link(onEvent,4346486:doEnum,[])
}
Add(SDialog,7504652,532,294)
{
link(onExecute,9680646:doSave,[(576,300)(576,206)(462,206)(462,111)])
}

карма: 0

0