jeka_kam, а чего модуль чтения не сделать вот так
Add(MainForm,2953706,119,147) { } Add(ArrayRW,6457832,483,273) { link(Array,7493369:Array,[]) } Add(Case,15358791,392,231) { Value=String() link(onNextCase,6457832:doAdd,[(472,237)(472,293)]) link(onTrue,10885940:doEvent1,[]) } Add(Hub,10885940,434,238) { link(onEvent1,7493369:doGetStr,[]) link(onEvent2,7493369:doClear,[]) } Add(CharArray,7493369,483,231) { link(onGetStr,6051039:doCase,[]) } Add(Case,6051039,525,238) { Value=String() link(onNextCase,9239508:doText,[]) } Add(StrList,9239508,574,217) { link(onChange,2724635:doWork,[]) } Add(COM,15683401,343,224) { link(onRead,15358791:doCase,[]) } Add(DoData,4830742,287,252) { Data=Integer(256) link(onEventData,15683401:doRead,[]) } Add(Thread,7337024,245,252) { Delay=0 Point(doStopFlag) link(onExec,4830742:doData,[]) } Add(Check,11410778,119,196) { Caption="Start" link(onEvent,16728663:doEvent1,[]) } Add(Hub,16728663,189,196) { OutCount=3 link(onEvent1,9239508:doClear,[(552,202)(552,230)]) link(onEvent2,15683401:doOpen,[(273,209)(273,230)]) link(onEvent3,7337024:doStart,[(224,216)(224,258)]) } Add(Check,3678748,119,231) { Caption="Stop" link(onEvent,15683401:doClose,[]) } Add(Check,2724635,623,217) { Caption="Change" }
|