Вверх ↑
Этот топик читают: Гость
Ответов: 33
Рейтинг: 0
#1: 2007-06-18 13:57:01 ЛС | профиль | цитата
Подскажите пожайлуста, как удалить дубликаты из списка строк.
Add(MainForm,5622443,38,77)
{
Left=20
Top=105
Width=499
Height=468
}
Add(Memo,4607465,241,121)
{
Left=160
Top=25
Width=170
Height=195
ScrollBars=3
}
Add(ArrayEnum,7191822,188,121)
{
link(onItem,4607465:doAdd,[(230,127)(230,127)])
link(Array,4677244:Array,[(194,111)(194,111)])
}
Add(Button,15867087,115,121)
{
Left=40
Top=95
Caption="Поиск"
link(onClick,7191822:doEnum,[(167,127)(167,127)])
}
Add(StrList,4677244,174,56)
{
Strings=#8:строка 1|8:строка 2|8:строка 1|8:строка 1|8:строка 1|8:строка 1|8:строка 2|8:строка 1|8:строка 2|8:строка 2|8:строка 2|8:строка 1|8:строка 1|8:строка 1|8:строка 3|8:строка 1|8:строка 1|8:строка 3|8:строка 3|8:строка 3|8:строка 1|8:строка 1|8:строка 3|
}
Add(Hub,4537927,166,293)
{
InCount=2
OutCount=4
link(onEvent1,1911894:doEvent1,[(329,299)(329,299)])
link(onEvent2,446428:doFor,[])
}
Add(For,446428,224,300)
{
IncludeEnd=1
link(onEvent,6569768:doEvent1,[])
link(onStop,11160365:doEnum,[(264,313)(264,432)])
link(End,4148322:Count,[(237,291)(348,291)])
}
Add(Hub,6569768,273,300)
{
link(onEvent1,1469487:doWork2,[(326,306)])
link(onEvent2,9318807:doSearch,[(320,313)(320,369)])
}
Add(ArrayRW,15053722,349,300)
{
link(Array,4148322:Array,[(355,288)(355,288)])
}
Add(Position,9318807,349,363)
{
ShortSearch=1
link(onSearch,6278748:doData,[])
link(Str,10223459:Var2,[])
link(Target,12644443:Value,[(362,339)(390,339)])
}
Add(DoData,6278748,398,363)
{
link(onEventData,417344:doAdd,[])
link(Data,446428:Position,[(404,352)(230,352)])
}
Add(Memory,12644443,384,209)
{
Default=String(строка 2)
}
Add(StrList,417344,454,363)
{
}
Add(Hub,14917333,517,426)
{
OutCount=3
link(onEvent1,1469487:doWork3,[(559,432)(559,416)(330,416)])
link(onEvent2,10088346:doAdd,[])
}
Add(ArrayEnum,11160365,468,426)
{
link(onItem,14917333:doEvent1,[])
link(Array,417344:Array,[(474,417)(474,417)])
}
Add(HubEx,1469487,326,293)
{
link(onEvent,15053722:doRead,[(339,306)(339,306)])
}
Add(Button,7256588,115,293)
{
Left=10
Top=290
Caption="Поиск2"
link(onClick,4537927:doEvent1,[])
}
Add(Memo,4148322,335,209)
{
Left=75
Top=305
Width=115
Height=115
Strings=#8:строка 1|8:строка 2|8:строка 1|8:строка 1|8:строка 1|8:строка 1|8:строка 2|8:строка 1|8:строка 2|8:строка 2|8:строка 2|8:строка 1|8:строка 1|8:строка 1|8:строка 3|8:строка 1|8:строка 1|8:строка 3|8:строка 3|8:строка 3|8:строка 1|8:строка 1|8:строка 3|
ScrollBars=3
}
Add(Memo,10088346,587,433)
{
Left=220
Top=305
Width=165
Height=115
ScrollBars=3
link(Str,10223459:Var3,[(593,346)])
}
Add(GetDataEx,10223459,342,337)
{
link(Data,15053722:Item,[])
}
Add(Hub,1911894,394,293)
{
link(onEvent1,417344:doClear,[(440,299)(440,376)])
link(onEvent2,10088346:doClear,[(572,306)(572,446)])
}
Add(InfoTip,3499592,94,189)
{
Info=#29:Моя попытка поиска дубликатов|
Width=561
Height=298
}
Add(InfoTip,441616,94,35)
{
Info=#26:Как удалить все дубликаты?|
Width=211
Height=144
}

карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Администрация
Ответов: 15295
Рейтинг: 1519
#2: 2007-06-18 14:04:55 ЛС | профиль | цитата
Все бы так проблему описывали...

=DEN=, эта задача решается всего лишь в два дополнительных элемента к начальной схеме:
code_1573.txt
карма: 27
0
файлы: 1code_1573.txt [810B] [459]
Ответов: 33
Рейтинг: 0
#3: 2007-06-18 14:10:38 ЛС | профиль | цитата
Dilma, большое спасибо! Все гениальное как всегда просто, а я столько времени на эту ерунду убил.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Администрация
Ответов: 15295
Рейтинг: 1519
#4: 2007-06-18 14:14:10 ЛС | профиль | цитата
Опыт проектирования схем в любом случае лишним не будет
карма: 27
0
Ответов: 2060
Рейтинг: 28
#5: 2007-06-18 16:27:28 ЛС | профиль | цитата
Dilma писал(а):
code_1573.txt

Интересная вещь. Надо будет запомнить, а то я то же сталкивался с такой праблемой и решал её по своему.
карма: 1

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