Make(delphi) ver(4.04 build 185) Add(MainForm,2953706,224,147) { Position=1 link(onCreate,177786:doEnum,[]) } Add(StringTable,3818848,385,161) { Left=320 Top=140 Align=5 Columns=#4:item|7:counter| Point(Strings) } Add(StrList,3988616,287,105) { Strings=#8:item 1;1|8:item 2;2|8:item 3;3|8:item 4;4|8:item 5;5|8:item 6;6|8:item 7;7|8:item 8;8| } Add(ArrayEnum,177786,301,161) { link(onItem,3818848:doAdd,[]) link(onEndEnum,3189698:doEnum,[(366,174)(366,223)]) link(Array,3988616:Array,[]) } Add(ArrayEnum,3189698,399,217) { @Hint=#14:Перебираем все|14:строки таблицы| link(onItem,14994346:doSplit,[]) link(onEndEnum,5244160:doStart,[(441,230)(441,293)]) link(Array,3818848:Strings,[]) AddHint(-91,46,100,26,@Hint) } Add(Math,11955230,490,224) { @Hint=#23:Складываем все значения|14:второй колонки| link(Op2,7201600:Var3,[(503,212)(512,212)(512,267)]) AddHint(63,2,151,26,@Hint) } Add(MultiStrData,14994346,448,217) { @Hint=#8:Выбираем|14:вторую колонку| link(onPart2,11955230:doOperation,[]) AddHint(36,-45,80,26,@Hint) } Add(Message,1953341,497,287) { link(Message,7201600:Var2,[]) } Add(GetDataEx,7201600,497,262) { Angle=3 link(Data,11955230:Result,[(496,267)]) } Add(Thread,5244160,455,287) { Delay=10 FastStop=0 link(onExec,1953341:doMessage,[]) } Add(InfoTip,3152200,273,77) { Info=#9:Наполняем|7:таблицу| Width=71 Height=123 } Add(InfoTip,7055427,434,273) { Info=#17:Выводим результат| Width=113 Height=53 }