Add(MainForm,13105371,315,140)
{
Width=396
Height=265
Caption="ArrayCountRepeats"
Position=1
}
Add(Button,9912960,315,182)
{
Left=50
Top=205
Width=105
TabOrder=-1
Caption="CountRepeats"
Data=Integer(0)
link(onClick,7189993:doEvent1,[])
}
Add(Memo,7888607,378,126)
{
Left=10
Top=10
Width=180
Height=190
Strings=#4:Ваня|4:Вася|4:Маша|4:Вася|4:Нюра|14:Вася Семенович|13:Аня Семенович|
}
Add(Edit,16748492,315,231)
{
Left=185
Top=205
Width=105
Text="Вася"
link(onChange,6257408:doString,[])
}
Add(StrMask,1334919,441,189)
{
Mask="*Вася*"
CaseSensitive=0
Point(doMask)
link(onTrue,5802335:doOperation,[])
}
Add(Label,1917362,532,245)
{
Left=305
Top=210
Caption=""
}
Add(Convertor,1609833,490,245)
{
Mode=16
Word_1="штука"
Word_2="штуки"
Word_5="штук"
link(onResult,1917362:doText,[])
link(Data,11957913:Var2,[])
}
Add(Hub,7189993,357,182)
{
link(onEvent1,5802335:doClear,[(480,188)(480,209)])
link(onEvent2,1682828:doEnum,[])
}
Add(Math,5802335,490,196)
{
Op2=1
ResultType=0
Point(doClear)
link(Op1,11957913:Var1,[(496,184)(484,184)(484,234)])
}
Add(GetDataEx,11957913,490,229)
{
link(Data,5802335:Result,[])
}
Add(ArrayEnum,1682828,392,189)
{
link(onItem,1334919:doCompare,[])
link(onEndEnum,1609833:doConvert,[(432,202)(432,251)])
link(Array,7888607:Array,[])
}
Add(FormatStr,6257408,392,231)
{
DataCount=1
Mask="*%1*"
link(onFString,1334919:doMask,[(437,237)(437,202)])
}
|
Ответов: 8975
Рейтинг: 824
|
|||
|
[b]301992[/b], ну а посмотреть, как строки обрабатывать хотя бы в примерах, некогда?
|
|||
| карма: 19 |
|



Поиск
Друзья
Администрация