nesco, круто спасибо.  Другое решение нетривиальной задачи Add(MainForm,2953706,126,140) { link(onCreate,5766131:doEnum,[]) } Add(FileStream,1374420,308,91) { link(onLoad,2439570:doConvert,[(350,97)(350,131)(296,131)(296,146)]) link(FileName,16324795:Value,[]) } Add(StreamConvertor,2439570,308,140) { Mode=4 Symbol="*" link(onResult,1791558:doEnum,[]) link(Data,1374420:Stream,[]) } Add(Str_Enum,1791558,357,140) { Delimiter="*" link(onEnum,350085:doLength,[]) } Add(Length,350085,406,140) { link(onLength,14245398:doCompare,[]) } Add(If_else,14245398,448,140) { Type=1 Op2=Integer(3) link(onFalse,13642079:doData,[(491,153)(491,187)(345,187)(345,202)]) } Add(DoData,13642079,364,196) { link(onEventData,8100567:doValue,[]) link(Data,1791558:Part,[]) } Add(Copy,4408847,448,196) { Position=2 Count=2 link(onCopy,13659489:doCompare,[]) } Add(Memory,8100567,406,196) { link(onData,4408847:doCopy,[]) } Add(If_else,13659489,497,196) { Op2=String(:\) link(onTrue,12382021:doData,[(539,202)(539,237)(394,237)(394,251)]) } Add(DoData,12382021,406,245) { Data=String() link(onEventData,8405695:doText,[]) link(Data,8100567:Value,[]) } Add(Edit,8405695,448,245) { Left=5 Top=25 Width=382 } Add(DropFile,2308361,217,42) { link(onDropFile,8045379:doEvent1,[]) link(onEndDrop,16181761:doEvent1,[(261,55)(261,97)]) } Add(Memory,16324795,308,42) { } Add(Application,12841581,210,105) { } Add(ArrayEnum,5766131,217,154) { link(onItem,8045379:doEvent2,[(269,160)(269,55)]) link(onEndEnum,16181761:doEvent2,[(261,167)(261,104)]) link(Array,12841581:Params,[]) } Add(Hub,16181761,280,91) { InCount=2 OutCount=1 link(onEvent1,1374420:doOpen,[]) } Add(Hub,8045379,280,42) { InCount=2 OutCount=1 link(onEvent1,16324795:doValue,[]) }
|