Вверх ↑
Разработчик
Ответов: 26163
Рейтинг: 2127
#1: 2009-04-23 17:21:30 ЛС | профиль | цитата
Tad, не передергивай, ты прекрасно знаешь, на что я дал такой ответ
------------ Дoбавленo в 17.24:
Tad, твое решение не совсем корректно, оно четыре раза выставляет в Edit результат. Правильнее сделать так


Add(MainForm,14146611,252,287)
{
Height=156
}
Add(Edit,4833166,308,287)
{
Left=5
Top=10
Width=380
Text="99900"
}
Add(Convertor,11845023,308,336)
{
Mode=6
Digits=8
link(onResult,14478331:doValue,[])
link(Data,4833166:Text,[])
}
Add(Button,1920163,252,336)
{
Left=170
Top=35
link(onClick,11845023:doConvert,[])
}
Add(StrCat,11819214,518,336)
{
link(Str1,3696289:Var1,[(524,323)(510,323)(510,380)])
}
Add(For,14070483,420,336)
{
Start=7
End=1
Step=-2
link(onEvent,15439106:doCopy,[])
link(onStop,12288795:doText,[(463,349)(463,405)])
}
Add(Copy,15439106,469,336)
{
Count=2
link(onCopy,11819214:doStrCat,[])
link(Str,14478331:Value,[(475,323)(407,323)(407,380)(370,380)])
}
Add(Memory,14478331,364,336)
{
link(onData,14070483:doFor,[])
}
Add(Edit,12288795,518,399)
{
Left=5
Top=70
Width=380
link(Str,3696289:Var2,[])
}
Add(GetDataEx,3696289,511,371)
{
link(Data,11819214:Result,[])
}

карма: 22

0