Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2019-02-10 14:57:20 ЛС | профиль | цитата
С удалением повторений.

Add(MainForm,14426702,203,119)
{
Width=1098
}
Add(StringTableMT,16162541,273,119)
{
Left=5
Top=10
Width=440
Height=225
Columns=#11:Фамилия=100|7:Имя=100|12:Отчество=100|16:Год рождения=100|
IconsCheck=[]
MiscIcons=[]
Icons=[]
StringsStrLst=#25:Иванов;Иван;Иванович;1986|25:Сергеев;Сергей;Сергеевич;|3:;;;|28:Семенов;Семен;Семенович;2002|3:;;;|28:Алексеев;Алексей;Алексеевич;|
AutoTblStrLst=0
Point(Strings)
}
Add(MultiStrPart,3323496,511,175)
{
Count=4
}
Add(FormatStr,1292974,511,238)
{
DataCount=4
Mask="%1 %2 %3 %4"
link(onFString,2637463:doAdd,[])
link(Str1,3323496:Part1,[])
link(Str2,3323496:Part2,[])
link(Str3,3323496:Part3,[])
link(Str4,12618017:Var2,[])
}
Add(Button,14621664,196,168)
{
Left=450
Top=20
Width=60
link(onClick,3498463:doEvent1,[])
}
Add(Hub,3498463,245,168)
{
link(onEvent1,2637463:doClear,[(555,174)(555,251)])
link(onEvent2,7178785:doFilter,[])
}
Add(If_else,3169800,434,238)
{
Type=5
Op2=String()
link(onTrue,1292974:doString,[])
link(Op1,12618017:Var1,[(440,222)])
}
Add(GetDataEx,12618017,532,217)
{
link(Data,3323496:Part4,[])
}
Add(RichEdit,2637463,567,238)
{
Left=515
Top=10
Width=535
Height=225
Font=[Courier New,12,1,0,204]
ScrollBars=3
}
Add(Hub,4008304,406,175)
{
link(onEvent1,3323496:doSplit,[])
link(onEvent2,3169800:doCompare,[(427,188)(427,244)])
}
Add(ArrayFilterRepeats,7178785,287,175)
{
link(onFilter,4008304:doEvent1,[])
link(Array,16162541:Strings,[])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 1 раз(а), последний 2019-02-10 15:02:24