Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2010-04-18 18:20:52 ЛС | профиль | цитата
nesco, в варианте Ravilr-а (да и в том, что я выложил) есть одна тонкость - возможность автоматом задать MAX для счетчика, взяв Count с нижней точки StrList-a и... пустить перебор слов "по кругу".
[flood]считай, что мы с Ravilr-ом оправдались [/flood]

Add(Edit,3826301,476,252)
{
Left=105
Top=165
Width=155
}
Add(Memo,2317018,231,91)
{
Left=110
Top=20
Width=150
Height=125
Strings=#20:Привет;Ололо;Пыщ пыщ|14:Мама;мыла;раму|
}
Add(StrList,1359326,329,133)
{
}
Add(Counter,3668885,343,252)
{
Max=0
Default=-1
Point(Max)
Point(doMax)
link(onNext,5788059:doRead,[])
link(Max,9643721:reCalc,[])
}
Add(ArrayRW,5788059,420,252)
{
link(onRead,3826301:doText,[])
link(Array,1359326:Array,[(426,191)(349,191)])
}
Add(Button,685819,203,252)
{
Left=130
Top=200
link(onClick,3668885:doNext,[])
}
Add(Replace,4945182,231,154)
{
SubStr=";"
DestStr=""
link(onReplace,13556556:doEvent1,[])
link(Str,2317018:Text,[])
}
Add(MainForm,2953706,175,140)
{
link(onCreate,4945182:doReplace,[])
}
Add(Hub,13556556,280,154)
{
link(onEvent1,1359326:doText,[])
link(onEvent2,3668885:doMax,[(315,167)(315,279)])
}
Add(MathParse,9643721,336,203)
{
MathStr="%1 -1"
Point(reCalc)
link(X1,1359326:Count,[])
}


------------ Дoбавленo в 18.20:
Анекдот писал(а):
-Мамо, сьогоднi коло клубу на мене всi напали. Так кричали, так кричали.
-Ну и шо?
-Насилу вiдгавкалась.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
2
Голосовали:Drelariel, safinik2009