

------------ Дoбавленo в 14.58:
nesco писал(а):
Да с него, вроде, Dilma снял ограничения
Add(MainForm,2953706,98,315)
{
Width=150
Height=197
link(onCreate,11887048:doFor,[(163,335)(163,328)])
}
Add(For,11887048,189,322)
{
End=6000
link(onEvent,13313798:doStrCat,[])
link(onStop,4406169:doEvent1,[])
}
Add(Label,15723072,630,336)
{
Left=48
Top=118
}
Add(Memory,5071836,252,231)
{
Default=String(1)
}
Add(StrCat,13313798,252,322)
{
link(Str1,5071836:Value,[])
link(Str2,8342124:Var3,[(265,310)(303,310)(303,366)])
}
Add(Length,5175029,483,336)
{
link(onLength,15723072:doText,[])
}
Add(GetDataEx,8342124,245,357)
{
link(Data,13313798:Result,[])
}
Add(Hub,4406169,322,329)
{
OutCount=3
link(onEvent1,6090307:doAdd,[(368,335)(368,167)])
link(onEvent2,6138846:doRead,[])
}
Add(RichEdit,6090307,399,161)
{
Left=43
Top=18
ScrollBars=3
link(Str,8342124:Var2,[(405,149)(331,149)(331,370)])
}
Add(ArrayRW,6138846,413,336)
{
link(onRead,5175029:doLength,[])
link(Array,6090307:Array,[])
link(Index,6666906:Value,[(426,296)(482,296)])
}
Add(Memory,6666906,476,224)
{
Default=Integer(0)
}