juk писал(а):
Думаю, что не понятно объяснил
Как бы это делал я:
1. Поменять местами числа 2 и 1
230425939757;224013
230425939757;224420
230425939757;223333
230425939757;555555
2. Сортировка
230425939757;223333
230425939757;224013
230425939757;224420
230425939757;555555
3. Построчный перебор ArrayEnum.
4. Пока первое не меняется (компонент ChangeMon) записываем в U-1, U-2 и т.д.
5. Первое изменилось сбрасываем Math в 1 (или 0)
6. Конец ArrayEnum
Add(MainForm,1304682,245,462)
{
Width=804
Height=551
}
Add(Button,7523982,245,399)
{
Left=170
Top=5
Width=40
link(onClick,939067:doEvent1,[])
}
Add(ArrayEnum,11795611,357,406)
{
link(onItem,3132897:doSplit,[])
link(onEndEnum,8627006:doEvent1,[(404,419)(404,461)])
link(Array,2480119:Array,[])
}
Add(StrList,16371553,532,413)
{
Point(doSort)
}
Add(Memo,2480119,343,336)
{
Left=5
Top=5
Width=155
Height=500
Font=[Consolas,8,0,0,204]
Strings=#19:224013;230425939757|19:855945;425139317513|19:343912;660990662288|19:120341;211661973980|19:855640;741220546590|19:287044;359494229598|19:283345;369818236442|19:329187;128138915467|19:266901;169828477039|19:852387;339500391138|19:263861;308274871570|19:409901;359494229598|19:589703;342528148861|19:299541;253401502153|19:309245;612081504149|19:262865;175212234491|19:856117;442177267732|19:829170;113739931923|19:852699;568551640516|19:817244;100400126291|19:100014;288803439028|19:149278;355005330178|19:160001;288803439028|19:216431;312350049556|19:224420;230425939757|19:256452;153301108794|19:266540;222569055559|19:316183;185921227552|19:330313;111330621368|19:349549;261486399249|19:353055;261486399249|19:391273;660990662288|18:44444;288803439028|19:465663;234614187621|19:589725;211252968785|19:655132;211252968785|19:675977;211252968785|19:720752;211252968785|19:731503;420340504893|19:741653;420340504893|19:745814;235522607856|19:781611;211252968785|19:781901;303980160846|19:782100;211252968785|19:782672;303980160846|19:782832;211252968785|19:783129;211252968785|19:794309;442177267732|19:799822;329026045326|19:799825;329026045326|19:799936;211252968785|19:223333;230425939757|19:555555;230425939757|
ScrollBars=2
}
Add(StrPart,3132897,420,406)
{
Char=";"
Point(Right)
link(onPart,2611243:doStrCatDlm,[])
}
Add(StrCatDelim,2611243,476,413)
{
Delimiter=";"
link(onStrCatDlm,16371553:doAdd,[])
link(Str1,3132897:Right,[(482,401)(461,401)(461,450)(426,450)])
}
Add(Memo,13139763,532,490)
{
@Hint=#19:Это для наглядности|23:в рабочей схеме удалить|
@Color=5592575
Left=220
Top=5
Width=175
Height=500
ScrollBars=2
link(Str,16371553:Text,[])
AddHint(46,-24,127,26,@Hint)
}
Add(Hub,939067,301,399)
{
link(onEvent1,16371553:doClear,[(521,405)(521,426)])
link(onEvent2,11795611:doEnum,[])
}
Add(Hub,8627006,441,455)
{
OutCount=4
link(onEvent1,16371553:doSort,[])
link(onEvent2,13139763:doClear,[(493,468)(493,503)])
link(onEvent3,13139763:doAdd,[(510,475)(510,496)])
link(onEvent4,12238206:doEnum,[(469,482)(469,552)])
}
Add(ArrayEnum,12238206,546,546)
{
link(onItem,10595939:doSplit,[])
link(Array,13139763:Array,[])
}
Add(StrPart,10595939,609,546)
{
Char=";"
Point(Right)
link(onPart,15603474:doData,[])
}
Add(ChangeMon,15603474,658,553)
{
}