Вверх ↑
Этот топик читают: Гость
Ответов: 24
Рейтинг: 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

0
vip
#1.1контекстная реклама от партнеров
Ответов: 16442
Рейтинг: 1210
#2: 2019-02-10 14:42:08 ЛС | профиль | цитата
del

Редактировалось 1 раз(а), последний 2019-02-10 14:58:45
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 24
Рейтинг: 0
#3: 2019-02-10 14:45:40 ЛС | профиль | цитата
Tad, Спасибо.
По твоему примеру разобрался.

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

0
Ответов: 16442
Рейтинг: 1210
#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
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)