Леонид, тогда можно гораздо проще и производительней! Add(MainForm,2953706,126,84) { Width=336 Height=345 } Add(RichEdit,2397271,210,84) { Left=5 Top=30 Width=290 Height=225 Strings=#24:групп компаний RDS GROUP|19:Яр Краска, ООО, ТПК|25:Яндекс.Маркет. Красноярск|19:Юнитест-Сибирь, ООО|12:Юнирбау, ЗАО|9:ЮУТК, ООО|17:ЮМАКОМ, Компания |12:Эпсилон, ООО|22:Энергометкомплект, ООО|25:Энергомаш ОАО - г.Тверь|27:Энергогарант ООО - г. Томск|10:Эмаль, ООО|12:Элсервис ООО|13:Электрум, ЗАО|0:| ScrollBars=2 ReadOnly=0 CanDragOle=1 ParseLinks=0 Point(doSetSelStart) Point(doSetSelLength) Point(doFormatSel) Point(Position) Point(onMouseUp) link(onMouseUp,8729519:doEnum,[(253,97)(253,73)(198,73)(198,174)]) } Add(Edit,5298288,420,168) { Left=5 Top=265 Width=295 Text="" ClearAfterEnter=1 link(onChange,8729519:doStop,[(473,174)(473,229)(198,229)(198,181)]) link(Str,8729519:Part,[(426,152)(404,152)(404,218)(223,218)]) } Add(Str_Enum,8729519,210,168) { Delimiter=" " link(onEnum,14199495:doLength,[]) link(onEndEnum,13773146:doClear,[]) link(String,2397271:Text,[]) } Add(If_else,8738010,364,168) { Type=4 link(onTrue,5298288:doText,[]) link(Op2,2397271:Position,[(377,151)(237,151)]) } Add(Length,14199495,259,168) { link(onLength,13773146:doOperation,[]) } Add(Math,13773146,315,168) { Point(doClear) link(onResult,8738010:doCompare,[]) link(Op1,13773146:Result,[(321,156)(309,156)(309,212)(321,212)]) }
|