Вверх ↑
Ответов: 8804
Рейтинг: 818
#1: 2022-10-26 10:44:49 ЛС | профиль | цитата


Add(MainForm,2953706,63,28)
{
Width=606
link(onCreate,108353:doEvent1,[])
}
Add(ListBox,10536458,294,112)
{
Left=10
Top=20
Width=185
Height=230
}
Add(ListBox,1727801,350,112)
{
Left=200
Top=20
Width=185
Height=230
}
Add(ListBox,685493,504,182)
{
Left=395
Top=20
Width=185
Height=230
}
Add(Button,521992,210,175)
{
Left=360
Caption="Delet"
link(onClick,13327723:doEvent1,[])
}
Add(ArrayEnum,6461886,308,182)
{
link(onItem,11679551:doEnum,[])
link(onEndEnum,10520705:doEnum,[(347,195)(347,328)])
link(Array,10536458:Array,[])
}
Add(ArrayEnum,11679551,364,182)
{
link(onItem,12388729:doCompare,[])
link(Array,1727801:Array,[])
}
Add(Hub,13327723,266,175)
{
link(onEvent1,14757201:doEvent1,[(291,181)(291,307)])
link(onEvent2,6461886:doEnum,[])
}
Add(If_else,12388729,420,182)
{
link(onTrue,7781633:doEvent1,[])
link(Op1,6461886:Item,[(426,166)(412,166)(412,222)(314,222)])
}
Add(StrList,14910342,420,259)
{
AddType=1
}
Add(FormatStr,9740913,364,259)
{
Mask="%1;%2"
link(onFString,14910342:doAdd,[])
link(Str1,6461886:Index,[(370,235)(321,235)])
link(Str2,11679551:Index,[])
}
Add(Hub,7781633,462,182)
{
link(onEvent1,685493:doAdd,[])
link(onEvent2,9740913:doString,[(487,195)(487,230)(354,230)(354,265)])
}
Add(Hub,14757201,364,301)
{
link(onEvent1,14910342:doClear,[(403,307)(403,272)])
link(onEvent2,685493:doClear,[(494,314)(494,195)])
}
Add(ArrayEnum,10520705,434,322)
{
link(onItem,5091495:doSplit,[])
link(Array,14910342:Array,[])
}
Add(MultiStrData,5091495,483,322)
{
link(onPart1,10536458:doDelete,[(543,328)(543,160)(284,160)(284,132)])
link(onPart2,1727801:doDelete,[(550,335)(550,153)(340,153)(340,132)])
}
Add(MultiElement,3210884,189,42)
{
@Hint=#15:Случайный текст|
link(onEvent1,12938338:doNext,[(228,48)(228,83)(130,83)(130,97)])
}
BEGIN_SDK
Add(EditMulti,90280,28,21)
{
EventCount=2
WorkCount=2
DataCount=1
VarCount=2
Width=489
Height=158
VOffset=7
HOffset=28
link(doWork1,15240120:doEvent1,[])
link(doWork2,15286128:doFor,[(39,41)(39,55)])
link(Var1,15286128:Position,[(62,173)(55,173)])
link(Var2,4498498:Value,[(69,152)(454,152)])
}
Add(For,15286128,49,49)
{
@Hint=#18:Количество абзацев|
End=21
IncludeEnd=1
link(onEvent,9486001:doRandom,[])
link(onStop,90280:onEvent2,[(88,62)(88,142)(503,142)(503,41)])
}
Add(For,11842154,154,49)
{
@Hint=#29:Количество слов в предложении|
link(onEvent,5410569:doText,[])
link(onStop,15892992:doEvent1,[(193,62)(193,97)])
link(End,9486001:Random,[(167,40)(146,40)(146,89)(111,89)])
}
Add(Random,9486001,105,49)
{
Min=7
Max=15
link(onRandom,11842154:doFor,[])
}
Add(InlineCode,5410569,203,42)
{
WorkPoints=#7:doStart|6:doText|
EventPoints=#5:onRes|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|23: onRes : THI_Event;|5: |52: procedure doStart(var _Data:TData; Index:Word); |50: procedure doText(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doStart;|6: begin|12: Randomize;|5: end;|0:|29:procedure THiAsmClass.doText;|15:var sss:string;|16: i,j:integer;|16: _Rnd:double;|5:BEGIN|11: sss:=' ';|24: j:=round(Random*12)+2;|19: for i:=0 to j do|9: begin|18: _Rnd:=Random;|42: if _Rnd<0.0003 then sss:=sss+'ё' else|42: if _Rnd<0.0007 then sss:=sss+'ъ' else|42: if _Rnd<0.0033 then sss:=sss+'ф' else|42: if _Rnd<0.0065 then sss:=sss+'э' else|42: if _Rnd<0.0101 then sss:=sss+'щ' else|42: if _Rnd<0.0149 then sss:=sss+'ц' else|42: if _Rnd<0.0213 then sss:=sss+'ю' else|42: if _Rnd<0.0286 then sss:=sss+'ш' else|41: if _Rnd<0.038 then sss:=sss+'ж' else|42: if _Rnd<0.0477 then sss:=sss+'х' else|42: if _Rnd<0.0598 then sss:=sss+'й' else|42: if _Rnd<0.0742 then sss:=sss+'ч' else|42: if _Rnd<0.0901 then sss:=sss+'б' else|42: if _Rnd<0.1066 then sss:=sss+'з' else|42: if _Rnd<0.1236 then sss:=sss+'г' else|41: if _Rnd<0.141 then sss:=sss+'ь' else|40: if _Rnd<0.16 then sss:=sss+'ы' else|42: if _Rnd<0.1801 then sss:=sss+'я' else|42: if _Rnd<0.2063 then sss:=sss+'у' else|42: if _Rnd<0.2344 then sss:=sss+'п' else|42: if _Rnd<0.2642 then sss:=sss+'д' else|42: if _Rnd<0.2963 then sss:=sss+'м' else|42: if _Rnd<0.3312 then sss:=sss+'к' else|42: if _Rnd<0.3752 then sss:=sss+'л' else|42: if _Rnd<0.4206 then sss:=sss+'в' else|42: if _Rnd<0.4679 then sss:=sss+'р' else|42: if _Rnd<0.5226 then sss:=sss+'с' else|42: if _Rnd<0.5852 then sss:=sss+'т' else|42: if _Rnd<0.6522 then sss:=sss+'н' else|42: if _Rnd<0.7257 then sss:=sss+'и' else|42: if _Rnd<0.8058 then sss:=sss+'а' else|42: if _Rnd<0.8903 then sss:=sss+'е' else|34: if _Rnd<1 then sss:=sss+'о'; |9: end;|25: _hi_onEvent(onRes,sss);|4:END;|0:|0:|4:end.|
link(onRes,15879034:doWork2,[])
}
Add(StrCat,13455235,308,42)
{
Point(doClear)
link(Str1,7063167:Var3,[(314,33)(328,33)(328,82)])
}
Add(Hub,15240120,70,28)
{
link(onEvent1,5410569:doStart,[(193,34)(193,48)])
link(onEvent2,9486001:doRandomize,[(95,41)(95,62)])
}
Add(DoData,7170534,308,98)
{
link(onEventData,16600547:doTrim,[])
link(Data,7063167:Var2,[])
}
Add(GetDataEx,7063167,308,77)
{
link(Data,13455235:Result,[])
}
Add(Hub,15892992,203,91)
{
OutCount=3
link(onEvent1,7526937:doData,[(242,97)(242,62)])
link(onEvent2,7170534:doData,[])
link(onEvent3,13455235:doClear,[(298,111)(298,55)])
}
Add(DoData,7526937,252,56)
{
Data=String(. )
link(onEventData,15879034:doWork3,[(291,62)])
}
Add(HubEx,15879034,287,42)
{
link(onEvent,13455235:doStrCat,[])
}
Add(StrCase,14266070,406,98)
{
Type=3
link(onModify,4498498:doValue,[])
}
Add(Trim,16600547,357,98)
{
Char=" "
Mode=4
link(onTrim,14266070:doModify,[])
}
Add(Memory,4498498,448,98)
{
link(onData,90280:onEvent1,[(488,104)(488,34)])
}
END_SDK
Add(Hub,108353,147,42)
{
link(onEvent1,3210884:doWork1,[])
link(onEvent2,3210884:doWork2,[])
}
Add(IndexToChanel,11967270,196,91)
{
Count=3
Point(Data)
link(onEvent1,1711209:doWork2,[])
link(onEvent2,7935473:doWork2,[])
link(onEvent3,4368870:doEvent1,[])
link(Data,3210884:Var2,[])
}
Add(Counter,12938338,140,91)
{
Max=2
link(onNext,11967270:doEvent,[])
}
Add(Hub,4368870,238,105)
{
link(onEvent1,7935473:doWork3,[(263,111)])
link(onEvent2,1711209:doWork3,[(277,118)])
}
Add(HubEx,7935473,259,98)
{
link(onEvent,10536458:doAdd,[(284,104)(284,118)])
}
Add(HubEx,1711209,273,91)
{
link(onEvent,1727801:doAdd,[(340,97)(340,118)])
}
Add(InfoTip,16703510,126,21)
{
Info=#27:Третьи строки одинаковые|
Font=[MS Sans Serif,8,1,255,1]
Width=155
Height=116
}

карма: 18

0