knoot0279 писал(а): вот что в итоге вышло... Эффект такой, что вроде в итоге оплачивается размер программы.
А вот что должно было выйти и всего на 19-ти компонентах вместо твоих 133-х : (хотя можно было и совсем коротко)
Add(Edit,6662796,455,38) { Left=260 Top=5 Text="2;3" Alignment=2 } Add(MainForm,10715029,210,147) { Height=130 BorderStyle=1 Position=1 } Add(Edit,608451,280,217) { Left=25 Top=5 Width=160 Text="2x^3+15x^2+24x+3" } Add(Replace,7521685,280,266) { SubStr="x" DestStr="*%1" link(onReplace,14532254:doEvent1,[]) link(Str,608451:Text,[]) } Add(Button,8660459,210,266) { Left=320 Top=5 Width=60 Caption="Посчитать" link(onClick,7521685:doReplace,[]) } Add(Label,2424607,266,147) { Left=5 Top=5 Width=20 Height=20 Font=[MS Sans Serif,10,1,0,1] Caption="y=" } Add(Label,14722588,308,147) { Left=185 Top=5 Width=81 Height=17 Font=[MS Sans Serif,8,1,0,1] Transparent=0 Caption="на отрезке [" } Add(Label,13666624,350,147) { Left=310 Top=5 Width=7 Height=17 Font=[MS Sans Serif,8,1,0,1] Caption="]" } Add(StyleXP,16269506,210,217) { } Add(StrPart,834924,455,77) { Char=";" DirectEvent=0 Point(Left) Point(Right) link(onSplit,2896240:doWork1,[]) link(onPart,2896240:doWork2,[]) link(Str,6662796:Text,[]) } Add(Memo,1814233,518,266) { Top=27 Width=384 Height=65 Align=4 Font=[MS Sans Serif,10,1,0,1] } Add(MathParse,3134999,399,266) { DataCount=1 MathStr="" Point(doMathStr) link(onResult,11158118:doString,[]) link(X1,12944616:Var1,[(405,202)]) } Add(Hub,14532254,343,266) { OutCount=3 link(onEvent1,2028924:doMask,[(376,272)(376,230)]) link(onEvent2,3134999:doMathStr,[]) link(onEvent3,834924:doSplit,[(375,286)(375,308)(189,308)(189,83)]) } Add(FormatStr,11158118,462,266) { DataCount=3 Mask="y(%2) = %1 = %3" link(onFString,1814233:doAdd,[]) link(Str1,2028924:FString,[(468,257)(461,257)]) link(Str2,12944616:Var3,[(475,202)]) } Add(GetIndexData,15189299,455,140) { link(onIndex,5018701:doEvent1,[]) link(Data1,834924:Left,[]) link(Data2,834924:Right,[]) } Add(ChanelToIndex,2896240,511,77) { link(onIndex,15189299:doIndex,[(550,83)(550,34)(439,34)(439,146)]) } Add(GetDataEx,12944616,455,197) { link(Data,15189299:Var,[]) } Add(FormatStr,2028924,455,217) { Mask="" Point(doMask) Point(FString) link(Str1,12944616:Var2,[]) } Add(Hub,5018701,504,140) { link(onEvent1,2028924:doString,[(547,146)(547,190)(445,190)(445,223)]) link(onEvent2,3134999:doCalc,[(535,153)(535,179)(388,179)(388,272)]) }
|