Assasin, увеличил число вариантов до 10000 и добавил удаление одинаковых строк. Попробуй сейчас ввести одну цифру, будет облом . Мне с номером не повезло, а вот у соседа 254565 получается БОЛОТО. code_16863.txt
------------ Дoбавленo в 14.27:
Черт, забыл раскладку включить.
Add(MainForm,2953706,301,91) { Width=346 Height=262 Color=15780518 Caption="Telefon Nummer - Word" Position=1 link(onCreate,2158467:doWork1,[(347,111)]) } Add(Edit,763048,245,133) { Left=10 Top=15 Width=130 Text="" } Add(Button,14721864,-7,133) { Left=10 Top=45 Width=40 Height=30 Caption="1" Data=String(1) link(onClick,1549155:doWork2,[]) } Add(Button,1469259,-7,167) { Left=55 Top=45 Width=40 Height=30 Caption="2" Data=String(2) link(onClick,10297375:doWork2,[]) } Add(Button,6543197,-7,201) { Left=100 Top=45 Width=40 Height=30 Caption="3" Data=String(3) link(onClick,10290907:doWork2,[]) } Add(Button,6002637,-7,235) { Left=10 Top=80 Width=40 Height=30 Caption="4" Data=String(4) link(onClick,2122024:doWork2,[]) } Add(Button,11787873,-7,269) { Left=55 Top=80 Width=40 Height=30 Caption="5" Data=String(5) link(onClick,15134364:doWork2,[]) } Add(Button,5793081,-7,303) { Left=100 Top=80 Width=40 Height=30 Caption="6" Data=String(6) link(onClick,4225530:doWork2,[]) } Add(Button,5805361,-7,337) { Left=10 Top=115 Width=40 Height=30 Caption="7" Data=String(7) link(onClick,11656209:doWork2,[]) } Add(Button,8542688,-7,371) { Left=55 Top=115 Width=40 Height=30 Caption="8" Data=String(8) link(onClick,9239830:doWork2,[]) } Add(Button,8169839,-7,405) { Left=100 Top=115 Width=40 Height=30 Caption="9" Data=String(9) link(onClick,14763451:doWork2,[]) } Add(Button,4333547,-7,439) { Left=10 Top=150 Width=40 Height=30 Caption="0" Data=String(0) link(onClick,14763451:doWork3,[(60,445)]) } Add(Button,2345951,77,189) { Left=55 Top=150 Width=85 Height=30 Caption="генерация" link(onClick,1435070:doEvent1,[]) } Add(StrCat,10420271,140,133) { Point(doClear) link(onStrCat,763048:doText,[]) link(Str1,10420271:Result,[(146,121)(184,121)(184,175)(146,175)]) } Add(HubEx,1549155,56,133) { link(onEvent,10420271:doStrCat,[]) } Add(HubEx,14763451,56,405) { Angle=3 link(onEvent,9239830:doWork3,[]) } Add(HubEx,9239830,56,371) { Angle=3 link(onEvent,11656209:doWork3,[]) } Add(HubEx,11656209,56,337) { Angle=3 link(onEvent,4225530:doWork3,[]) } Add(HubEx,4225530,56,303) { Angle=3 link(onEvent,15134364:doWork3,[]) } Add(HubEx,15134364,56,269) { Angle=3 link(onEvent,2122024:doWork3,[]) } Add(HubEx,2122024,56,235) { Angle=3 link(onEvent,10290907:doWork3,[]) } Add(HubEx,10290907,56,201) { Angle=3 link(onEvent,10297375:doWork3,[]) } Add(HubEx,10297375,56,167) { Angle=3 link(onEvent,1549155:doWork3,[]) } Add(Str_Enum,12590703,245,196) { Delimiter="" link(onEnum,5124639:doRead,[]) link(onEndEnum,6128688:doEvent1,[(285,209)(285,272)]) link(String,763048:Text,[]) } Add(ArrayRW,5124639,372,196) { link(onRead,11442855:doRandom,[]) link(Array,12556748:Var,[]) } Add(Copy,13478362,490,196) { Count=1 link(onCopy,10952103:doAdd,[]) link(Str,5124639:Item,[(496,185)(424,185)(424,237)(378,237)]) link(Position,11442855:Random,[(503,176)(478,176)(478,237)(440,237)]) } Add(Random,11442855,434,196) { Min=1 Max=4 link(onRandom,13478362:doCopy,[]) } Add(Button,14548357,525,133) { Left=55 Top=185 Width=85 Height=30 Caption="очистить" link(onClick,4421277:doEvent1,[]) } Add(Str_Enum,273057,546,266) { Delimiter="r\n" link(onEnum,10297637:doReplace,[]) link(String,10952103:Text,[]) } Add(Hub,6128688,350,266) { link(onEvent1,273057:doEnum,[]) link(onEvent2,10952103:doClear,[(531,279)(531,209)]) } Add(Replace,10297637,596,266) { SubStr=" " link(onReplace,2607491:doAdd,[]) } Add(Hub,4421277,574,133) { OutCount=4 link(onEvent1,6292392:doWork1,[(645,139)]) link(onEvent2,13627520:doWork1,[(732,146)]) link(onEvent3,2915417:In,[]) link(onEvent4,12679699:In,[]) } Add(For,9642395,196,196) { End=10000 link(onEvent,12590703:doEnum,[]) link(onStop,12253003:doEvent1,[(238,209)(238,335)]) } Add(LineBreak,3150227,203,140) { link(Out,763048:doText2,[]) Primary=[2915417,399,7] } Add(LineBreak,15742797,77,140) { link(Out,10420271:doClear,[]) Primary=[12679699,525,14] } Add(StrList,10952103,546,196) { } Add(StrList,16095517,358,63) { Strings=#4:====|4:1111|4:AABC|4:DDEF|4:GGHI|4:JJKL|4:MMNO|4:PQRS|4:TTUV|4:WXYZ| } Add(StrList,4803058,407,63) { Strings=#4:====|4:1111|4:АБВГ|4:ДЕЖЗ|4:ИЙКЛ|4:МНОП|4:РСТУ|4:ФХЦЧ|4:ШЩЪЫ|4:ЬЭЮЯ| } Add(GetIndexData,12556748,372,133) { link(onIndex,11442855:doRandomize,[(415,139)(415,209)]) link(Data1,16095517:Array,[]) link(Data2,4803058:Array,[(385,121)(427,121)]) } Add(CheckBox,12105158,301,133) { Left=10 Top=190 Width=40 Color=15780518 Caption="ru" link(onCheck,2158467:doWork2,[]) } Add(HubEx,2158467,343,133) { link(onEvent,12556748:doIndex,[]) } Add(Hub,1435070,126,189) { link(onEvent1,14800346:In,[(147,195)(147,188)]) link(onEvent2,9642395:doFor,[]) } Add(LineBreak,6044195,581,196) { link(Out,7001790:doEvent1,[]) Primary=[14800346,-427,-14] } Add(ArrayEnum,1106745,672,336) { link(onItem,6099512:doData,[]) link(Array,2607491:Array,[]) } Add(ChangeMon,6099512,728,336) { link(onData,12641570:doAdd,[]) } Add(ListBox,12641570,791,336) { Left=150 Top=10 Width=180 Height=210 Sort=0 } Add(StrList,2607491,658,266) { Point(doSort) } Add(Hub,12253003,588,329) { link(onEvent1,2607491:doSort,[(630,335)(630,314)]) link(onEvent2,1106745:doEnum,[]) } Add(HubEx,6292392,641,196) { Angle=1 link(onEvent,2607491:doClear,[(645,279)]) } Add(Hub,7001790,623,196) { link(onEvent1,6292392:doWork2,[]) link(onEvent2,13627520:doWork2,[]) } Add(HubEx,13627520,728,203) { link(onEvent,12641570:doClear,[(774,209)(774,349)]) }
|