А ты как хотел? так?
Add(MainForm,13105371,112,126)
{
Width=396
Height=265
Caption="ArrayFilterRepeats"
Position=1
link(onCreate,6143661:doData,[])
}
Add(StrList,3068266,203,63)
{
Strings=#4:Вася|6:Петя12|4:Петя|9:yandex.ru|14:Ольга Игоревна|30:На дворе трава, на траве дрова|4:Петя|7:.......|4:Вася|16:Манька-облигация|4:Петя|6:и т.д.|
Point(doGetIndex)
Point(onGetIndex)
}
Add(Button,9912960,112,175)
{
Left=165
Top=205
TabOrder=-1
Caption="Filter"
Data=Integer(0)
link(onClick,1184839:doEvent1,[])
}
Add(Memo,7888607,308,119)
{
Left=10
Top=10
Width=180
Height=190
}
Add(DoData,6143661,203,140)
{
link(onEventData,7888607:doText,[])
link(Data,3068266:Text,[])
}
Add(Hub,1184839,161,175)
{
link(onEvent1,15671522:doClear,[(288,181)(288,195)])
link(onEvent2,682505:doCount,[])
}
Add(ArrayCountRepeats,682505,210,182)
{
link(onCount,15671522:doMT_Add,[(275,188)(275,223)])
link(Array,3068266:Array,[(216,170)(223,170)])
}
Add(StringTableMT,15671522,308,182)
{
Left=195
Top=10
Width=185
Height=190
Columns=#4:name|5:count|
Redaction=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doMT_Add)
}
------------ Дoбавленo в 22.54:
nesco писал(а):
куды ж ты все бежишь, боишься опоздатьспать хочу, а потом забуду и пропадет из темы...
------------ Дoбавленo в 23.01:
думаю так лучше
схема для примера в вики
Add(MainForm,13105371,112,126)
{
Width=396
Height=265
Caption="ArrayCountRepeats"
Position=1
link(onCreate,6143661:doData,[])
}
Add(StrList,3068266,203,63)
{
Strings=#4:Вася|6:Петя12|4:Петя|9:yandex.ru|14:Ольга Игоревна|30:На дворе трава, на траве дрова|4:Петя|7:.......|4:Вася|16:Манька-облигация|4:Петя|6:и т.д.|
Point(doGetIndex)
Point(onGetIndex)
}
Add(Button,9912960,112,175)
{
Left=165
Top=205
TabOrder=-1
Caption="Filter"
Data=Integer(0)
link(onClick,1184839:doEvent1,[])
}
Add(Memo,7888607,336,119)
{
Left=10
Top=10
Width=180
Height=190
}
Add(DoData,6143661,203,140)
{
link(onEventData,7888607:doText,[])
link(Data,3068266:Text,[])
}
Add(Hub,1184839,161,175)
{
link(onEvent1,11179287:doClear,[(323,181)(323,195)])
link(onEvent2,682505:doCount,[])
}
Add(ArrayCountRepeats,682505,210,182)
{
link(onCount,12650620:doStr,[])
link(Array,3068266:Array,[(216,170)(223,170)])
}
Add(StringTable,11179287,336,182)
{
Left=195
Top=10
Width=185
Height=190
Columns=#4:name|5:count|
}
Add(MT_String,12650620,266,182)
{
Mask="%1 %2"
link(onResult,11179287:doAdd,[])
}