Вверх ↑
Ответов: 1321
Рейтинг: 37
#1: 2011-03-24 17:22:44 ЛС | профиль | цитата
Я не нашел никаких вариантов кроме как это,не совсем то , но всё-же
code_23090.txt
------------ Дoбавленo в 17.20:

Add(MainForm,2953706,70,175)
{
Width=542
Height=218
}
Add(StrList,16756841,182,182)
{
Strings=#9:MB_block;|1:{|7:par1=33|7:par2=43|7:par3=22|1:}|0:|7:MB_blo;|1:{|8:par1=343|10:par2=42343|10:par3=22342|1:}|
}
Add(BlockFind,9501216,182,252)
{
IncludeBlock=1
StartBlock="MB_"
EndBlock=";"
link(onSearch,5769870:doAdd,[])
link(Text,15191489:Var2,[])
}
Add(Button,11335250,70,252)
{
Left=30
Top=70
Data=70
link(onClick,9501216:doSearch,[])
}
Add(ListBox,5769870,245,252)
{
Left=30
Top=90
Width=95
DataType=1
link(onClick,365622:doStrCat,[])
}
Add(BlockFind,11158544,224,315)
{
IncludeBlock=1
EndBlock="}"
Point(doStartBlock)
link(onSearch,15287072:doAdd,[])
link(onEndSearch,2263750:doFor,[(282,328)(282,384)])
link(Text,15191489:Var3,[(230,243)])
}
Add(Hub,14034543,329,259)
{
link(onEvent1,11158544:doStartBlock,[(362,265)(362,306)(212,306)(212,328)])
link(onEvent2,11158544:doSearch,[(355,272)(355,297)(206,297)(206,321)])
}
Add(GetDataEx,15191489,182,238)
{
link(Data,16756841:Text,[])
}
Add(StrCat,365622,287,259)
{
Str2=";"
link(onStrCat,14034543:doEvent1,[])
}
Add(For,2263750,308,378)
{
Start=2
link(onEvent,16177894:doRead,[])
link(End,15287072:Count,[(321,369)(356,369)])
}
Add(ArrayRW,16177894,357,378)
{
link(onRead,9751529:doAdd,[])
link(Array,15287072:Array,[])
}
Add(StrPart,891315,483,385)
{
Char="="
link(onSplit,10250500:doText,[(523,391)(523,363)])
link(onPart,9179371:doText,[])
}
Add(ListBox,9751529,434,378)
{
Left=290
Top=90
Width=130
DataType=1
link(onClick,891315:doSplit,[])
}
Add(Edit,9179371,532,392)
{
Left=420
Top=110
Width=100
}
Add(Memo,15484904,427,238)
{
Left=125
Top=90
Width=150
}
Add(Edit,10250500,532,357)
{
Left=420
Top=90
Width=100
}
Add(StrList,15287072,343,315)
{
@Hint=#4:Глюк|
AddHint(108,-9,41,13,@Hint)
}



Только вот почему в этой схеме глюк?
------------ Дoбавленo в 17.22:
А всё нашел
карма: 0

0
файлы: 1code_23090.txt [1.7KB] [180]