Подскажите, есть ли менее замороченный способ подсчета значений правого столбца в таблице.
Я набросал, работает, но уверен что есть решение гораздо проще))))
Add(MainForm,2953706,77,105)
{
Width=742
Height=454
link(onCreate,1370606:doEnum,[])
}
Add(StrList,13965242,133,70)
{
Strings=#10:йцукенг;11|5:цук;5|6:фыва;8|9:йцукенг;4|9:йцукенг;5|6:фыва;3|8:ячсми;22|9:ячсми;115|10:пролдж;265|9:йцукен;44|9:пролдж;25|7:фыва;74|
}
Add(StrMask,11150096,623,266)
{
Point(doMask)
link(onTrue,3668206:doRead,[])
}
Add(ArrayEnum,14449548,224,175)
{
link(onItem,12526119:doSplit,[])
link(onEndEnum,11510733:doEvent1,[(272,188)(272,279)])
link(Array,9725226:Strings,[])
}
Add(StrList,4616048,427,182)
{
}
Add(MultiStrData,12526119,294,175)
{
link(onPart1,9059765:doEvent1,[])
link(onPart2,10247179:doAdd,[(351,188)(351,223)])
}
Add(StrList,10247179,679,217)
{
}
Add(ArrayEnum,3406654,441,273)
{
link(onItem,1250366:doEvent1,[])
link(Array,4616048:Array,[])
}
Add(ArrayEnum,16484304,525,280)
{
link(onItem,11150096:doCompare,[(568,286)(568,272)])
link(onEndEnum,15275605:doEvent1,[])
link(Array,15207437:Array,[])
}
Add(StrList,15207437,511,175)
{
}
Add(Hub,9059765,385,175)
{
link(onEvent1,15207437:doAdd,[])
link(onEvent2,4616048:doAdd,[])
}
Add(Hub,1250366,490,273)
{
link(onEvent1,11150096:doMask,[])
link(onEvent2,16484304:doEnum,[])
}
Add(ArrayRW,3668206,693,273)
{
link(onRead,8254983:doOperation,[(786,279)(786,293)])
link(Array,10247179:Array,[])
link(Index,16484304:Index,[(706,263)(673,263)(673,322)(538,322)])
}
Add(StringTable,14508183,875,455)
{
Left=375
Top=40
Width=285
Height=225
Columns=#11:позиция=100|8:колич=50|
}
Add(Math,8254983,805,287)
{
Point(doClear)
link(Op1,14659791:Var1,[(811,275)(799,275)(799,331)])
}
Add(FormatStr,14390798,735,406)
{
Mask="%1;%2"
link(onFString,15420804:doAdd,[])
link(Str1,3406654:Item,[(741,332)(447,332)])
link(Str2,14659791:Var2,[(748,370)(811,370)])
}
Add(Hub,15275605,574,287)
{
link(onEvent1,14390798:doString,[(603,293)(603,412)])
link(onEvent2,8254983:doClear,[])
}
Add(StrList,15420804,805,406)
{
}
Add(ArrayFilterRepeats,11096402,819,455)
{
link(onFilter,14508183:doAdd,[])
link(Array,15420804:Array,[])
}
Add(Hub,11510733,287,273)
{
link(onEvent1,3406654:doEnum,[])
link(onEvent2,12078457:In,[])
}
Add(LineBreak,6811689,714,455)
{
Caption="on_end_enum"
link(Out,11096402:doFilter,[])
Primary=[12078457,-399,-175]
}
Add(GetDataEx,14659791,805,326)
{
link(Data,8254983:Result,[])
}
Add(StringTable,9725226,210,119)
{
Left=50
Top=40
Width=285
Height=225
Columns=#11:позиция=100|8:колич=50|
Point(Strings)
}
Add(ArrayEnum,1370606,147,119)
{
link(onItem,9725226:doAdd,[])
link(Array,13965242:Array,[])
}
Add(Button,1690297,140,175)
{
Left=275
Top=300
Width=155
Caption="посчитать"
link(onClick,14449548:doEnum,[])
}