Add(ArrayFilterRepeats,10239790,679,469)
{
 link(onFilter,366962:doAdd,[(787,475)(787,420)])
 link(Array,5372899:Array,[(685,390)(748,390)])
}
Add(MainForm,13105371,539,343)
{
 Width=682
 Height=348
 Caption="ArrayFilterRepeats"
 Position=1
 link(onCreate,6143661:doData,[])
}
Add(Button,9912960,574,462)
{
 Left=165
 Top=230
 TabOrder=-1
 Caption="Filter"
 Data=Integer(0)
 link(onClick,1184839:doEvent1,[])
}
Add(Memo,7888607,770,336)
{
 Left=10
 Top=10
 Width=180
 Height=190
}
Add(DoData,6143661,665,357)
{
 link(onEventData,7888607:doText,[])
 link(Data,5372899:Text,[(671,334)(734,334)])
}
Add(Hub,1184839,623,462)
{
 link(onEvent2,10239790:doFilter,[])
}
Add(StringTableMT,366962,862,414)
{
 Left=255
 Top=10
 Width=235
 Height=190
 Font=[MS Sans Serif,10,0,0,1]
 Columns=#7:Имя=15010:Кол-во=100|
 StrDelimiter="%"
 ColumnWidth=300
 TabGrid=0
 TabGridFrame=0
 SingleString=0
 Grid=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=['Icon'=[]]
 AutoTblStrLst=0
 SaveColProp=0
 SaveWidth=0
 Point(onMT_CellClick)
 Point(onEscCell)
 Point(Matrix)
 Point(Index)
 Point(SubItem)
 Point(Cell)
 Point(doAddColumn)
 Point(Strings)
 Point(StrLstArray)
 Point(onChange)
 Point(onDblClick)
 Point(TextStrLst)
 Point(doMT_Add)
 Point(doAddStrLst)
 Point(doMT_Replace)
 Point(FileName)
 Point(doBringToFront)
 Point(doVisible)
 Point(doInitTxtTab)
 Point(doTblStrLst)
}
Add(Memo,5372899,728,266)
{
 Left=10
 Top=10
 Width=180
 Height=190
 Visible=1
 Strings=#4:Вася|6:Петя12|4:Петя|9:yandex.ru|14:Ольга Игоревна|30:На дворе трава, на траве дрова|4:Петя|7:.......|4:Вася|16:Манька-облигация|4:Петя|6:и т.д.|
}

Add(MainForm,13105371,322,224)
{
 Width=682
 Height=348
 Caption="ArrayFilterRepeats"
 Position=1
 link(onCreate,9213086:doCount,[])
}
Add(Memo,5372899,378,175)
{
 Left=15
 Top=15
 Width=180
 Height=190
 Strings=#4:Вася|6:Петя12|4:Петя|9:yandex.ru|14:Ольга Игоревна|30:На дворе трава, на траве дрова|4:Петя|7:.......|4:Вася|16:Манька-облигация|4:Петя|6:и т.д.|
}
Add(ArrayCountRepeats,9213086,392,238)
{
 link(onCount,12758289:doStr,[])
 link(Array,5372899:Array,[])
}
Add(MT_String,12758289,462,238)
{
 link(onResult,13383604:doAdd,[])
}
Add(StringTable,13383604,525,238)
{
 Left=230
 Top=15
 Width=305
 Height=190
 Columns=#5:Слово|6:кол-во|
}