andr_larr писал(а):
Тоесть вызываю подпрограмму передав ей какие-либо параметры и после её исполнения она должна вернуться в место вызова с передачей результата в основную программуПопробуй еще вертикальное программирование, может очень сильно пригодиться
Add(MainForm,16586835,175,105)
{
}
Add(MathParse,15841359,343,175)
{
MathStr="10 + %2(%1)"
link(onResult,10791811:doAdd,[(405,181)(405,167)])
link(X2,985796:GetData,[])
}
Add(Memo,10791811,434,161)
{
Left=15
Top=10
Width=200
Height=175
ScrollBars=2
}
Add(Button,13474776,175,168)
{
Left=85
Top=200
TabOrder=-1
link(onClick,7900967:doEvent1,[])
}
Add(Hub,7900967,231,168)
{
link(onEvent1,10791811:doClear,[])
link(onEvent2,666771:doFor,[])
}
Add(For,666771,273,175)
{
Start=1
End=20
link(onEvent,15841359:doCalc,[])
}
Add(Math,13042500,406,105)
{
OpType=28
link(onResult,985796:doData,[(450,111)(450,99)(338,99)(338,111)])
}
Add(EventFromData,985796,350,105)
{
link(onEvent,13042500:doOperation,[])
}