Сортировка MT таблицы

Форумы Помощь по пакетуСортировка MT таблицы ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 44

Рейтинг: 0

#1: 2019-02-10 13:54:11 ЛС | профиль | цитата

Подскажите, к примеру есть MT таблица:

Фамилия Имя Отчество Год Рождения

Иванов Иван Иванович 1986
Сергеев Сергей Сергеевич

Семенов Семен Семенович 2002

Алексеев Алексей Алексеевич

Ее нужно отсортировать выкинув пустые поля и выбрать только те значения у которых в столбце "Год рождения" указаны цифры, после этого записать результат в RichEdit.

Make(delphi)ver(4.05 build 186)
Width=927
Add(MainForm,14426702,497,238)
{
 Width=921
}
Add(StringTableMT,16162541,567,238)
{
 Left=20
 Top=10
 Width=365
 Height=225
 Columns=#11:Фамилия=100|7:Имя=100|12:Отчество=100|16:Год рождения=100|
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 StringsStrLst=#25:Иванов;Иван;Иванович;1986|25:Сергеев;Сергей;Сергеевич;|4:;;;;|28:Семенов;Семен;Семенович;2002|4:;;;;|28:Алексеев;Алексей;Алексеевич;|
 AutoTblStrLst=0
 Point(Strings)
}
Add(RichEdit,11838888,658,406)
{
 Left=475
 Top=10
 Width=390
 Height=225
 ScrollBars=3
}
Add(ArrayEnum,12906672,580,300)
{
 link(onItem,333273:doCompare,[])
 link(Array,16162541:Strings,[(586,285)(587,285)])
}
Add(StrMask,333273,636,300)
{
 Mask="***#"
 Point(doMask)
 link(onTrue,3323496:doSplit,[(680,313)(680,338)(569,338)(569,363)])
}
Add(MultiStrPart,3323496,581,357)
{
 Count=3
 link(onSplit,1292974:doString,[(625,363)(625,387)(569,387)(569,412)])
 link(Str,12906672:Item,[(587,345)(586,345)])
}
Add(FormatStr,1292974,581,406)
{
 DataCount=3
 Mask="Фамилия - %1\r\nОтчество - %3\r\n\r\n "
 link(onFString,11838888:doAdd,[])
 link(Str1,3323496:Part1,[])
 link(Str3,3323496:Part3,[])
}
Add(Button,14621664,490,294)
{
 Left=400
 Top=20
 Width=70
 link(onClick,3498463:doEvent1,[])
}
Add(Hub,3498463,539,294)
{
 link(onEvent1,11838888:doClear,[(605,300)(605,419)])
 link(onEvent2,12906672:doEnum,[(567,307)(567,306)])
}

Должно получится так:

Иванов Иванович 1986
Семенов Семенович 2002

Думаю нужно составить правильную "маску" сортировки, но не получается составить нужную?

Редактировалось 8 раз(а), последний 2019-02-10 14:47:28

карма: 0

Google vip	#1.1контекстная реклама от партнеров

Ответов: 16884

Рейтинг: 1239

#2: 2019-02-10 14:42:08 ЛС | профиль | цитата

del

Редактировалось 1 раз(а), последний 2019-02-10 14:58:45

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 44

Рейтинг: 0

#3: 2019-02-10 14:45:40 ЛС | профиль | цитата

Tad, Спасибо.
По твоему примеру разобрался.

Редактировалось 2 раз(а), последний 2019-02-10 14:57:00

карма: 0

Ответов: 16884

Рейтинг: 1239

#4: 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,[])
}

Редактировалось 1 раз(а), последний 2019-02-10 15:02:24

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Форумы Помощь по пакетуСортировка MT таблицы ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)