code_23361.txt
Т.к. при отсутствии в строке символа-разделителя она выдаётся на точку Right, пришлось установить выделенный Memory.
Add(MainForm,14431576,350,217)
{
Width=545
Height=174
Position=1
}
Add(Button,13436686,420,182)
{
Left=131
Top=102
Width=100
Height=24
Caption="С разделителем"
Data=String(123456787568735472918 # +++)
link(onClick,8404091:doWork2,[])
}
Add(StrPart,6338507,525,189)
{
Char="#"
DirectEvent=0
Point(onNotFound)
Point(Left)
Point(Right)
}
Add(Label,12876941,525,238)
{
Left=4
Top=62
Width=175
Height=20
Color=-16777192
Ctl3D=0
Caption=" Left"
AutoSize=1
link(Text,6338507:Left,[])
}
Add(Hub,4403314,476,182)
{
OutCount=4
link(onEvent1,7689655:doText,[(508,188)(508,146)])
link(onEvent2,6338507:doSplit,[])
link(onEvent3,12876941:doText,[(516,202)(516,244)])
link(onEvent4,8864189:doText,[(507,209)(507,286)])
}
Add(Label,8864189,532,280)
{
Left=356
Top=62
Width=175
Height=20
Color=-16777192
Ctl3D=0
Caption=" Right"
AutoSize=1
link(Text,6338507:Right,[])
}
Add(Label,1300819,420,224)
{
Left=204
Top=21
Width=118
Height=14
Caption="Символ-разделитель -"
AutoSize=1
}
Add(Label,4153436,462,224)
{
Left=322
Top=22
Width=14
Height=14
Color=16776960
Caption=" #"
AutoSize=1
}
Add(Button,4560843,420,140)
{
Left=305
Top=102
Width=100
Height=24
Caption="Без разделителя"
Data=String(123456787568735472918 +++)
link(onClick,8404091:doWork1,[(466,146)])
}
Add(Label,7689655,525,140)
{
Left=180
Top=62
Width=175
Height=20
Color=15780518
Ctl3D=0
Caption=" String"
AutoSize=1
}
Add(HubEx,8404091,462,182)
{
link(onEvent,4403314:doEvent1,[])
}