Вверх ↑
Разработчик
Ответов: 26161
Рейтинг: 2127
#1: 2012-04-05 03:11:17 ЛС | профиль | цитата
Можно вот так еще реализовать без всяких матриц

code_27542.txt
------------ Дoбавленo в 03.11:
Еще вариант



Add(MainForm,4800867,91,210)
{
Width=270
Height=231
}
Add(Button,8304338,91,280)
{
Left=10
Top=170
Width=100
Caption="Общая сумма"
link(onClick,5653661:doAdd,[])
}
Add(Label,1297124,434,245)
{
Left=140
Top=175
Width=100
}
Add(StringTableMT,3298480,231,245)
{
Left=10
Top=15
Width=235
Height=150
Columns=#5:Товар|4:Цена|
IconsCheck=[]
MiscIcons=[]
Icons=[]
StringsStrLst=#8:fffff;56|10:jjjjjjj;78|12:yuyuyuyu;897|10:xxxxxxx;44|8:eeee;139|
AutoTblStrLst=0
Point(Matrix)
Point(Strings)
Point(doMT_EMatrix)
Point(onMT_EMatrix)
link(onMT_EMatrix,5914700:doStr,[])
}
Add(MT_AddData,5653661,147,280)
{
link(onAdd,3298480:doMT_EMatrix,[])
link(Data1,7233422:Value,[])
link(Data2,3870903:Value,[(160,261)(195,261)])
}
Add(Memory,7233422,147,210)
{
Default=Integer(1)
}
Add(Memory,3870903,189,210)
{
Default=Integer(-1)
}
Add(MT_String,5914700,287,252)
{
Delimeter="+"
link(onResult,1641629:doEvent1,[])
}
Add(Hub,1641629,343,252)
{
link(onEvent1,9066917:doMathStr,[])
link(onEvent2,9066917:doCalc,[(371,265)(371,251)])
}
Add(MathParse,9066917,385,245)
{
MathStr=""
Point(doMathStr)
link(onResult,1297124:doText,[])
}

карма: 22

0
файлы: 1code_27542.txt [1.1KB] [249]