Леонид, мне показалось, правда, что постановка другая, несколько...
[code:1]Add(MainForm,9638861,84,154) {
Left=260
Top=235
Width=269
Height=126
Caption="COM"
}
Add(Memory,6372168,525,133)
{
Default=String()
}
Add(FormatStr,5096427,147,133)
{
DataCount=6
Mask="%1 %2 %3 %4 %5 %6"
link(onFString,12710960:doValue,[])
link(Str1,1638551:Text,[(153,91)(34,91)])
link(Str2,463839:Value,[(160,83)(90,83)])
link(Str3,5059991:Value,[(167,75)(132,75)])
link(Str4,9445263:Value,[(174,83)(174,83)])
link(Str5,2852955:Value,[(181,83)(216,83)])
link(Str6,2791198:Value,[(188,90)(258,90)])
}
Add(Button,5068175,28,98)
{
Left=10
Top=10
Caption="COM_1"
link(onClick,14444274:doEvent1,[])
}
Add(Button,64500,28,175)
{
Left=195
Top=65
Caption="Выход"
link(onClick,9638861:doClose,[])
}
Add(Memory,463839,84,21)
{
Default=String(04)
}
Add(Memory,5059991,126,21)
{
Default=String(05)
}
Add(Memory,9445263,168,21)
{
Default=String(06)
}
Add(Memory,2852955,210,21)
{
Default=String(08)
}
Add(Memory,2791198,252,21)
{
Default=String(09)
}
Add(StrCat,6555432,476,133)
{
link(onStrCat,6372168:doValue,[])
link(Str1,1936900:Var1,[(482,123)(500,123)(500,177)])
}
Add(Copy,16378383,350,133)
{
Count=2
link(onCopy,16505471:doConvert,[])
link(Str,12710960:Value,[(356,123)(293,123)(293,176)(209,176)])
}
Add(For,9014349,301,133)
{
Start=1
Step=3
InData=0
link(onEvent,16378383:doCopy,[])
link(onStop,1812060:doData,[(341,146)(341,202)])
}
Add(Length,16234503,252,133)
{
link(onLength,9014349:doFor,[])
}
Add(Convertor,16505471,392,133)
{
Mode=5
link(onResult,15692359:doConvert,[])
}
Add(Memory,12710960,203,133)
{
link(onData,16234503:doLength,[])
}
Add(Edit,1638551,28,21)
{
Left=10
Top=50
Width=155
Text="01"
}
Add(Hub,14444274,84,98)
{
OutCount=4
link(onEvent1,7652415:doOpen,[(564,104)(564,181)])
link(onEvent2,6372168:doClear,[(513,111)(513,146)])
link(onEvent3,5096427:doString,[(138,118)(138,139)])
link(onEvent4,7652415:doClose,[(132,125)(132,188)])
}
Add(COM,7652415,574,175)
{
link(onWrite,13852533:doStrCat,[])
}
Add(StrCat,13852533,623,175)
{
Str2=" байт передано в порт"
link(onStrCat,2090460:doText,[])
}
Add(Label,2090460,672,175)
{
Left=85
Top=10
Width=150
Height=20
Caption=""
AutoSize=1
}
Add(DoData,1812060,525,196)
{
link(onEventData,7652415:doWrite,[])
link(Data,1936900:Var2,[])
}
Add(GetDataEx,1936900,518,168)
{
link(Data,6372168:Value,[])
}
Add(Convertor,15692359,434,133)
{
Mode=4
link(onResult,6555432:doStrCat,[])
}[/code:1]