Вверх ↑
Ответов: 8975
Рейтинг: 824
#1: 2010-10-29 10:10:46 ЛС | профиль | цитата
[b]301992[/b], использовать БД :D или

Add(MainForm,13105371,385,168)
{
Width=396
Height=265
Caption="ArrayCountRepeats"
Position=1
link(onCreate,6143661:doData,[])
}
Add(StrList,3068266,434,105)
{
Strings=#4:Ваня|4:Вася|4:Маша|4:Вася|4:Нюра|14:Вася Семенович|13:Аня Семенович|0:|
Point(doGetIndex)
Point(onGetIndex)
}
Add(Button,9912960,385,266)
{
Left=50
Top=205
Width=105
TabOrder=-1
Caption="CountRepeats"
Data=Integer(0)
link(onClick,1184839:doEvent1,[])
}
Add(Memo,7888607,490,161)
{
Left=10
Top=10
Width=180
Height=190
}
Add(DoData,6143661,434,182)
{
link(onEventData,7888607:doText,[])
link(Data,3068266:Text,[])
}
Add(Hub,1184839,434,266)
{
link(onEvent1,11179287:doClear,[(597,272)(597,293)])
link(onEvent2,682505:doCount,[])
}
Add(ArrayCountRepeats,682505,462,273)
{
link(onCount,12650620:doStr,[])
link(Array,3068266:Array,[(468,172)(454,172)])
}
Add(StringTable,11179287,609,280)
{
Left=195
Top=10
Width=185
Height=190
Columns=#4:name|5:count|
}
Add(MT_String,12650620,504,273)
{
Mask="%1 %2"
link(onResult,1334919:doCompare,[])
}
Add(Edit,16748492,385,224)
{
Left=185
Top=205
Text="Вася"
link(onChange,3202767:doString,[])
}
Add(StrMask,1334919,553,273)
{
Mask="*Вася*"
Point(doMask)
link(onTrue,11179287:doAdd,[])
}
Add(FormatStr,3202767,427,224)
{
DataCount=1
Mask="*%1*"
link(onFString,1334919:doMask,[(542,230)(542,286)])
}

карма: 19

0