Вверх ↑
Ответов: 211
Рейтинг: 52
#1: 2018-05-24 17:09:30 ЛС | профиль | цитата
inter1, точка Text элемента Memo "Хранит список строк, разделенных символами 10 и 13". Т.е. у вас между парами значений 00^00^55 находятся символы перевода строк.

Демка, в ней видно что вы реально получаете:

Add(MainForm,2953706,21,105)
{
Height=121
}
Add(Edit,638912,196,147)
{
Left=10
Top=5
Width=85
Enabled=1
Text=""
link(onChange,7663786:doConvert,[])
link(Str,3432406:Text,[])
}
Add(Edit,3505685,308,147)
{
Left=170
Top=5
Width=210
Text=""
}
Add(StreamConvertor,7663786,252,147)
{
Mode=2
link(onResult,3505685:doText,[])
}
Add(StrList,3432406,196,70)
{
Strings=#2:00|2:00|2:55|
}
Add(Button,13395526,133,147)
{
Left=105
Top=5
link(onClick,638912:doText,[])
}
Add(Label,6232922,315,84)
{
Left=170
Top=35
Width=69
Height=17
Caption="3030 - это 00"
}
Add(Label,2563381,251,84)
{
Left=170
Top=60
Width=120
Height=17
Font=[MS Sans Serif,8,0,255,1]
Caption="0D0A - перевод строки"
}

решить можно так (с минимальными изменениями вашей схемы):
Add(MainForm,3622645,49,70)
{
Width=544
Height=234
link(onCreate,3160223:doData,[])
}
Add(Label,14798940,343,147)
{
@Color=13948159
Left=90
Top=102
Width=91
Height=19
Color=-16777196
Font=[Calibri,10,2,0,204]
Cursor=2
Caption="Активировать"
Alignment=1
ColorHover=128
Underline=0
link(onClick,3351686:doTimer,[])
}
Add(Label,3040698,791,308)
{
@Color=11184895
Left=15
Top=29
Width=260
Font=[MS Sans Serif,8,1,255,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(MathParse,11549991,532,147)
{
MathStr="%1- 1/86400"
link(onResult,14592317:doEvent1,[])
link(X1,16547537:Var,[])
}
Add(Timer,3351686,434,147)
{
Enable=1
link(onTimer,12885819:doEvent1,[])
}
Add(Math,3283021,623,154)
{
OpType=36
Op2=1
link(onResult,6660152:doEvent1,[])
}
Add(Hub,14592317,581,147)
{
OutCount=4
link(onEvent1,8081133:doWork2,[(612,153)(612,139)])
link(onEvent2,3283021:doOperation,[])
link(onEvent3,9730680:doData,[(611,167)(611,314)])
}
Add(If_else,6505826,714,154)
{
Op2=Integer(0)
link(onTrue,13134762:doEvent1,[])
}
Add(Beep,3082080,805,161)
{
Duration=1000
}
Add(Hub,13134762,763,154)
{
link(onEvent1,8299892:doEvent2,[(792,160)(792,201)(396,201)(396,167)])
link(onEvent2,3082080:doBeep,[])
}
Add(DateConvertor,10963874,672,308)
{
Mode=9
Format="HH:mm:ss"
link(onResult,3671069:doEvent1,[])
}
Add(DoData,9730680,623,308)
{
link(onEventData,10963874:doConvert,[])
link(Data,3263200:Var,[])
}
Add(Label,8493407,343,189)
{
@Color=13948159
Left=190
Top=100
Width=38
Height=19
Color=-16777196
Font=[Calibri,10,2,0,204]
Cursor=2
Caption="Пауза"
Alignment=1
ColorHover=128
Underline=0
link(onClick,8299892:doEvent1,[(387,195)(387,160)])
}
Add(LineBreak,5154313,861,203)
{
Caption="Time-Sel"
Type=1
Color=12895487
link(Data,11329346:Var2,[])
Primary=[16547537,-329,-84]
}
Add(LineBreak,5215968,924,203)
{
Caption="Time-Sel"
Type=1
Color=12895487
link(Data,11329346:Var3,[(930,173)])
Primary=[3263200,-301,77]
}
Add(Hub,8299892,406,154)
{
InCount=2
OutCount=1
link(onEvent1,3351686:doStop,[])
}
Add(Hub,12885819,483,147)
{
OutCount=3
link(onEvent1,11549991:doCalc,[])
}
Add(If_else,7227731,973,518)
{
Op2=Integer(0)
link(onTrue,10742767:doChangeValue,[])
link(Op1,1649964:Text,[(979,504)(944,504)])
link(Op2,4183569:Text,[(986,504)(1014,504)])
}
Add(Hub,6660152,672,154)
{
link(onEvent1,6505826:doCompare,[])
}
Add(Edit,11490516,833,357)
{
Left=58
Top=16
Width=170
link(onChange,12617301:doSplit,[(877,363)(877,391)(821,391)(821,419)])
}
Add(Hub,3671069,721,308)
{
link(onEvent1,3040698:doText,[])
link(onEvent2,7558901:doEvent1,[(759,321)(759,363)])
}
Add(Hub,7558901,791,357)
{
OutCount=3
link(onEvent1,11490516:doText,[])
link(onEvent2,12676085:doString,[(819,370)(819,468)])
}
Add(Edit,1649964,938,462)
{
Left=324
Top=22
Width=88
Text="0"
}
Add(LED,10742767,1022,518)
{
Left=480
Top=132
}
Add(Edit,4183569,1008,462)
{
Left=322
Top=48
Width=88
Text="000055"
}
Add(Button,1139970,924,518)
{
Left=360
Top=138
link(onClick,7227731:doCompare,[])
}
Add(DatePicker,4593916,861,133)
{
Left=79
Top=74
Width=168
Height=21
Font=[Courier New,12,1,0,204]
DateMode=1
Time=0
Point(DateTime)
Point(CurrentDateTime)
}
Add(GetDataEx,11329346,861,168)
{
link(Data,4593916:DateTime,[])
}
Add(DoData,3160223,791,84)
{
Data=Integer(736000)
link(onEventData,8081133:doWork1,[(844,90)])
}
Add(HubEx,8081133,840,133)
{
link(onEvent,4593916:doSetDate,[])
}
Add(MultiStrPart,12617301,833,413)
{
Char=":"
Count=3
}
Add(FormatStr,12676085,833,462)
{
DataCount=3
Mask="%1%2%3"
link(onFString,1649964:doText,[])
link(Str1,12617301:Part1,[])
link(Str2,12617301:Part2,[])
link(Str3,12617301:Part3,[])
}
ЗЫ. Если Memo нужен только для хранения данных, то используйте Строки->StrList
карма: 1
слтв
0
Редактировалось 7 раз(а), последний 2018-05-24 17:38:51