user_asm писал(а):
я понимаю принцип Вашей схемы иной чем был у меня на 1-2 странице сего топика.Отнюдь, практически -- то же самое
------------ Дoбавленo в 16.30:
Вот, еще вариант, работает быстрее StrMask
Add(MainForm,94467,308,343)
{
Width=750
Height=299
Caption=""
}
Add(StringTable,12713050,644,273)
{
Left=10
Top=10
Width=720
Height=215
Columns=#20:Результат поиска=700|
link(Str,1032831:Var3,[(650,248)])
}
Add(Button,4481738,119,140)
{
Left=20
Top=235
link(onClick,13019582:doEvent1,[])
}
Add(Thread,1555007,308,161)
{
Delay=0
FastStop=0
link(onExec,5019261:doEvent1,[(356,167)(356,119)(178,119)(178,258)])
}
Add(Hub,5019261,189,252)
{
OutCount=5
link(onEvent1,6468069:doOff,[(233,258)(233,314)])
link(onEvent2,15640483:doStart,[(219,265)(219,342)])
link(onEvent3,344370:doConvert,[])
link(onEvent4,15640483:doStop,[(212,279)(212,349)])
link(onEvent5,6468069:doOn,[(227,286)(227,321)])
}
Add(LED,6468069,252,301)
{
Left=615
Top=235
Width=115
Height=20
Shape=1
}
Add(TimeCounter,15640483,252,336)
{
link(onStop,94467:doCaption,[])
}
Add(SharedStream,9929879,252,161)
{
FileName="log1.txt"
CoreName="Log"
PageMem=1600
Point(Position)
link(onOpen,1555007:doStart,[])
}
Add(Convertor,344370,252,266)
{
Mode=11
link(onResult,10513845:doEvent1,[])
link(Data,9929879:Stream,[])
}
Add(StrList,2597292,385,182)
{
Point(doGetString)
Point(onGetString)
}
Add(Edit,11092326,455,315)
{
Left=155
Top=235
Width=130
Text="serial"
}
Add(Edit,2733370,525,315)
{
Left=375
Top=235
Width=125
Text="dur"
}
Add(Hub,13019582,189,140)
{
OutCount=4
link(onEvent1,12713050:doClear,[(630,146)(630,286)])
link(onEvent2,2279432:doData,[(369,153)(369,370)])
link(onEvent3,11907712:doData,[(513,160)(513,370)])
link(onEvent4,9929879:doOpen,[])
}
Add(ArrayEnum,16021318,399,273)
{
link(onItem,2886579:doSearch,[])
link(Array,2597292:Array,[])
}
Add(Hub,10513845,315,266)
{
link(onEvent1,2597292:doText,[(348,272)(348,209)])
link(onEvent2,16021318:doEnum,[])
}
Add(BlockFind,2886579,525,273)
{
EndBlock=":"
Point(doStartBlock)
link(onSearch,10112686:doSearch,[])
}
Add(DoData,2279432,455,364)
{
link(onEventData,2886579:doStartBlock,[(498,370)(498,286)])
link(Data,11092326:Text,[])
}
Add(BlockFind,10112686,588,273)
{
EndBlock=":"
Point(doStartBlock)
link(onSearch,12713050:doAdd,[])
link(Text,1032831:Var2,[])
}
Add(DoData,11907712,525,364)
{
link(onEventData,10112686:doStartBlock,[(570,370)(570,286)])
link(Data,2733370:Text,[])
}
Add(GetDataEx,1032831,588,243)
{
Angle=3
link(Data,16021318:Item,[(439,248)(439,317)(405,317)])
}