Вверх ↑
Этот топик читают: Гость
Ответов: 125
Рейтинг: 6
#1: 2018-07-13 22:09:15 ЛС | профиль | цитата
Приветствую, форумчане!
Прошу помощи с компонентом, никак не могу его победить, 2-х проходной вариант у меня вообще иероглифы выдаёт. При нажатии на Enter в теории должно появиться 31, а появляется 331.
Add(Edit,12727410,182,147){
Left=185
Top=25
Width=75
Text="1"
link(onEnter,2398653:doMultiReplace,[])
}
Add(Edit,7318913,280,154)
{
Left=190
Top=50
Width=70
Text=""
}
Add(MultiReplace,2398653,231,154)
{
ReplaceList="!=21;\r\n"=22;\r\n#=23;\r\n№=24;\r\n%=25;\r\n&=26;\r\n’=27;\r\n(=28;\r\n)=29;\r\n*=2A;\r\n+=2B;\r\n,=2C;\r\n-=2D;\r\n.=2E;\r\n/=2F;\r\n0=30;\r\n1=31;\r\n2=32;\r\n3=33;\r\n4=34;\r\n5=35;\r\n6=36;\r\n7=37;\r\n8=38;\r\n9=39;\r\n:=3A;\r\n;=3B;\r\n‹=3C;\r\n==3D;\r\n›=3E;\r\n?=3F;\r\n@=40;\r\nA=41;\r\nB=42;\r\nC=43;\r\nD=44;\r\nE=45;\r\nF=46;\r\nG=47;\r\nH=48;\r\nI=49;\r\nJ=4A;\r\nK=4B;\r\nL=4C;\r\nM=4D;\r\nN=4E;\r\nO=4F;\r\nP=50;\r\nQ=51;\r\nR=52;\r\nS=53;\r\nT=54;\r\nU=55;\r\nV=56;\r\nW=57;\r\nX=58;\r\nY=59;\r\nZ=5A;\r\n[=5B;\r\n\=5C;\r\n]=5D;\r\n^=5E;\r\n_=5F;\r\n`=60;\r\na=61;\r\nb=62;\r\nc=63;\r\nd=64;\r\ne=65;\r\nf=66;\r\ng=67;\r\nh=68;\r\ni=69;\r\nj=6A;\r\nK=6B;\r\nl=6C;\r\nm=6D;\r\nn=6E;\r\no=6F;\r\np=70;\r\nq=71;\r\nr=72;\r\ns=73;\r\nt=74;\r\nu=75;\r\nv=76;\r\nw=77;\r\nx=78;\r\ny=79;\r\nz=7A;\r\n{=7B;\r\n|=7C;\r\n}=7D;\r\n~=7E;\r\nА=80;\r\nБ=81;\r\nВ=82;\r\nГ=83;\r\nД=84;\r\nЕ=85;\r\nЖ=86;\r\nЗ=87;\r\nИ=88;\r\nЙ=89;\r\nК=8A;\r\nЛ=8B;\r\nМ=8C;\r\nН=8D;\r\nО=8E;\r\nП=8F;\r\nР=90;\r\nС=91;\r\nТ=92;\r\nУ=93;\r\nФ=94;\r\nХ=95;\r\nЦ=96;\r\nЧ=97;\r\nШ=98;\r\nЩ=99;\r\nЪ=9A;\r\nЫ=9B;\r\nЬ=9C;\r\nЭ=9D;\r\nЮ=9E;\r\nЯ=9F;\r\nа=A0;\r\nб=A1;\r\nв=A2;\r\nг=A3;\r\nд=A4;\r\nе=A5;\r\nж=A6;\r\nз=A7;\r\nи=A8;\r\nй=A9;\r\nк=AA;\r\nл=AB;\r\nм=AC;\r\nн=AD;\r\nо=AE;\r\nп=AF;\r\n-=B0;\r\n-=B1;\r\n-=B2;\r\n¦=B3;\r\n+=B4;\r\n¦=B5;\r\n¦=B6;\r\n¬=B7;\r\n¬=B8;\r\n¦=B9;\r\n¦=BA;\r\n¬=BB;\r\n-=BC;\r\n-=BD;\r\n-=BE;\r\n¬=BF;\r\nL=C0;\r\n+=C1;\r\nT=C2;\r\n+=C3;\r\n-=C4;\r\n+=C5;\r\n¦=C6;\r\n¦=C7;\r\nL=C8;\r\nг=C9;\r\n¦=CA;\r\nT=CB;\r\n¦=CC;\r\n==CD;\r\n+=CE;\r\n¦=CF;\r\n¦=D0;\r\nT=D1;\r\nT=D2;\r\nL=D3;\r\nL=D4;\r\n-=D5;\r\nг=D6;\r\n+=D7;\r\n+=D8;\r\n-=D9;\r\n-=DA;\r\n-=DB;\r\n-=DC;\r\n¦=DD;\r\n¦=DE;\r\n-=DF;\r\nр=E0;\r\nс=E1;\r\nт=E2;\r\nу=E3;\r\nф=E4;\r\nх=E5;\r\nц=E6;\r\nч=E7;\r\nш=E8;\r\nщ=E9;\r\nъ=EA;\r\nы=EB;\r\nь=EC;\r\nэ=ED;\r\nю=EE;\r\nя=EF;\r\nЁ=F0;\r\nё=F1;\r\n€=F2;\r\n­=FA;\r\n$=FC;\r\n¦=FF;"
EnterTag=""
link(onResult,7318913:doText,[])
}

Редактировалось 1 раз(а), последний 2018-07-14 08:39:35
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 18
Рейтинг: 20
#2: 2018-07-13 23:23:02 ЛС | профиль | цитата




Add(MainForm,5550036,462,154)
{
Width=342
Height=106
}
Add(Edit,12727410,161,273)
{
Left=5
Top=10
Width=305
Text="1"
link(onChange,16220773:doEvent1,[])
}
Add(Edit,7318913,819,343)
{
Left=5
Top=35
Width=305
Text=""
}
Add(StrList,9551083,462,203)
{
Strings=#4:!=21|4:"=22|4:#=23|4:№=24|4:%=25|4:&=26|4:’=27|4:(=28|4:)=29|4:*=2A|4:+=2B|4:,=2C|4:-=2D|4:.=2E|4:/=2F|4:0=30|4:1=31|4:2=32|4:3=33|4:4=34|4:5=35|4:6=36|4:7=37|4:8=38|4:9=39|4::=3A|4:;=3B|4:‹=3C|4:==3D|4:›=3E|4:?=3F|4:@=40|4:A=41|4:B=42|4:C=43|4:D=44|4:E=45|4:F=46|4:G=47|4:H=48|4:I=49|4:J=4A|4:K=4B|4:L=4C|4:M=4D|4:N=4E|4:O=4F|4:P=50|4:Q=51|4:R=52|4:S=53|4:T=54|4:U=55|4:V=56|4:W=57|4:X=58|4:Y=59|4:Z=5A|4:[=5B|4:\=5C|4:]=5D|4:^=5E|4:_=5F|4:`=60|4:a=61|4:b=62|4:c=63|4:d=64|4:e=65|4:f=66|4:g=67|4:h=68|4:i=69|4:j=6A|4:K=6B|4:l=6C|4:m=6D|4:n=6E|4:o=6F|4:p=70|4:q=71|4:r=72|4:s=73|4:t=74|4:u=75|4:v=76|4:w=77|4:x=78|4:y=79|4:z=7A|4:{=7B|4:|=7C|4:}=7D|4:~=7E|4:А=80|4:Б=81|4:В=82|4:Г=83|4:Д=84|4:Е=85|4:Ж=86|4:З=87|4:И=88|4:Й=89|4:К=8A|4:Л=8B|4:М=8C|4:Н=8D|4:О=8E|4:П=8F|4:Р=90|4:С=91|4:Т=92|4:У=93|4:Ф=94|4:Х=95|4:Ц=96|4:Ч=97|4:Ш=98|4:Щ=99|4:Ъ=9A|4:Ы=9B|4:Ь=9C|4:Э=9D|4:Ю=9E|4:Я=9F|4:а=A0|4:б=A1|4:в=A2|4:г=A3|4:д=A4|4:е=A5|4:ж=A6|4:з=A7|4:и=A8|4:й=A9|4:к=AA|4:л=AB|4:м=AC|4:н=AD|4:о=AE|4:п=AF|4:-=B0|4:-=B1|4:-=B2|4:¦=B3|4:+=B4|4:¦=B5|4:¦=B6|4:¬=B7|4:¬=B8|4:¦=B9|4:¦=BA|4:¬=BB|4:-=BC|4:-=BD|4:-=BE|4:¬=BF|4:L=C0|4:+=C1|4:T=C2|4:+=C3|4:-=C4|4:+=C5|4:¦=C6|4:¦=C7|4:L=C8|4:г=C9|4:¦=CA|4:T=CB|4:¦=CC|4:+=CE|4:¦=CF|4:¦=D0|4:T=D1|4:T=D2|4:L=D3|4:L=D4|4:-=D5|4:г=D6|4:+=D7|4:+=D8|4:-=D9|4:-=DA|4:-=DB|4:-=DC|4:¦=DD|4:¦=DE|4:-=DF|4:р=E0|4:с=E1|4:т=E2|4:у=E3|4:ф=E4|4:х=E5|4:ц=E6|4:ч=E7|4:ш=E8|4:щ=E9|4:ъ=EA|4:ы=EB|4:ь=EC|4:э=ED|4:ю=EE|4:я=EF|4:Ё=F0|4:ё=F1|4:€=F2|3:=FA|4:$=FC|4:¦=FF|
}
Add(Copy,16064903,364,280)
{
Count=1
link(onCopy,4814907:doValue,[])
link(Str,12277334:Var3,[(370,271)(356,271)(356,327)])
}
Add(For,836090,308,280)
{
Start=1
link(onEvent,16064903:doCopy,[])
link(onStop,15548081:doData,[(347,293)(347,349)])
link(End,6988335:Result,[(321,271)(293,271)(293,320)(258,320)])
}
Add(If_else,11368991,574,287)
{
link(onTrue,2218130:doEvent1,[])
link(Op1,4814907:Value,[(580,278)(516,278)(516,326)(426,326)])
}
Add(ArrayEnum,15904300,476,280)
{
link(onItem,13116458:doSplit,[])
link(Array,9551083:Array,[])
}
Add(Length,6988335,252,280)
{
link(onLength,836090:doFor,[])
link(Str,12277334:Var1,[(258,271)(230,271)])
}
Add(Memory,4814907,420,280)
{
link(onData,15904300:doEnum,[])
}
Add(StrPart,13116458,525,280)
{
Char="="
Point(Right)
link(onPart,11368991:doCompare,[])
}
Add(StrCatDelim,12864472,714,287)
{
Point(doClear)
link(onStrCatDlm,2900536:doValue,[])
link(Str2,12864472:Result,[(727,278)(706,278)(706,327)(720,327)])
}
Add(Memory,2900536,763,287)
{
}
Add(Memory,2176649,658,287)
{
Point(Data)
link(onData,12864472:doStrCatDlm,[])
link(Data,13116458:Right,[(664,278)(617,278)(617,326)(531,326)])
}
Add(Hub,16220773,210,273)
{
link(onEvent1,12864472:doClear,[(235,279)(235,265)(697,265)(697,300)])
link(onEvent2,6988335:doLength,[])
}
Add(DoData,15548081,763,343)
{
link(onEventData,7318913:doText,[])
link(Data,2900536:Value,[])
}
Add(GetDataEx,12277334,224,322)
{
Angle=3
link(Data,12727410:Text,[(167,327)])
}
Add(Hub,2218130,623,287)
{
link(onEvent1,2176649:doValue,[])
link(onEvent2,15904300:doStop,[(648,300)(648,335)(466,335)(466,293)])
}


карма: 1

0
Ответов: 125
Рейтинг: 6
#3: 2018-07-14 08:56:27 ЛС | профиль | цитата
Flapiotun, А вы проверяли код? Я проверил, во первых он выдаёт неверный результат(реверс). Во вторых, он дольше варианта замены в лоб в 25 раз.
Add(MainForm,5550036,588,238)
{
Width=428
Height=136
}
Add(Edit,5460572,1015,392)
{
Left=5
Top=35
Width=305
Text=""
}
Add(StrList,9551083,637,245)
{
Strings=#4: =20|4:!=21|4:"=22|4:#=23|4:№=24|4:%=25|4:&=26|4:’=27|4:(=28|4:)=29|4:*=2A|4:+=2B|4:,=2C|4:-=2D|4:.=2E|4:/=2F|4:0=30|4:1=31|4:2=32|4:3=33|4:4=34|4:5=35|4:6=36|4:7=37|4:8=38|4:9=39|4::=3A|4:;=3B|4:‹=3C|4:==3D|4:›=3E|4:?=3F|4:@=40|4:A=41|4:B=42|4:C=43|4:D=44|4:E=45|4:F=46|4:G=47|4:H=48|4:I=49|4:J=4A|4:K=4B|4:L=4C|4:M=4D|4:N=4E|4:O=4F|4:P=50|4:Q=51|4:R=52|4:S=53|4:T=54|4:U=55|4:V=56|4:W=57|4:X=58|4:Y=59|4:Z=5A|4:[=5B|4:\=5C|4:]=5D|4:^=5E|4:_=5F|4:`=60|4:a=61|4:b=62|4:c=63|4:d=64|4:e=65|4:f=66|4:g=67|4:h=68|4:i=69|4:j=6A|4:K=6B|4:l=6C|4:m=6D|4:n=6E|4:o=6F|4:p=70|4:q=71|4:r=72|4:s=73|4:t=74|4:u=75|4:v=76|4:w=77|4:x=78|4:y=79|4:z=7A|4:{=7B|4:|=7C|4:}=7D|4:~=7E|4:А=80|4:Б=81|4:В=82|4:Г=83|4:Д=84|4:Е=85|4:Ж=86|4:З=87|4:И=88|4:Й=89|4:К=8A|4:Л=8B|4:М=8C|4:Н=8D|4:О=8E|4:П=8F|4:Р=90|4:С=91|4:Т=92|4:У=93|4:Ф=94|4:Х=95|4:Ц=96|4:Ч=97|4:Ш=98|4:Щ=99|4:Ъ=9A|4:Ы=9B|4:Ь=9C|4:Э=9D|4:Ю=9E|4:Я=9F|4:а=A0|4:б=A1|4:в=A2|4:г=A3|4:д=A4|4:е=A5|4:ж=A6|4:з=A7|4:и=A8|4:й=A9|4:к=AA|4:л=AB|4:м=AC|4:н=AD|4:о=AE|4:п=AF|4:-=B0|4:-=B1|4:-=B2|4:¦=B3|4:+=B4|4:¦=B5|4:¦=B6|4:¬=B7|4:¬=B8|4:¦=B9|4:¦=BA|4:¬=BB|4:-=BC|4:-=BD|4:-=BE|4:¬=BF|4:L=C0|4:+=C1|4:T=C2|4:+=C3|4:-=C4|4:+=C5|4:¦=C6|4:¦=C7|4:L=C8|4:г=C9|4:¦=CA|4:T=CB|4:¦=CC|4:+=CE|4:¦=CF|4:¦=D0|4:T=D1|4:T=D2|4:L=D3|4:L=D4|4:-=D5|4:г=D6|4:+=D7|4:+=D8|4:-=D9|4:-=DA|4:-=DB|4:-=DC|4:¦=DD|4:¦=DE|4:-=DF|4:р=E0|4:с=E1|4:т=E2|4:у=E3|4:ф=E4|4:х=E5|4:ц=E6|4:ч=E7|4:ш=E8|4:щ=E9|4:ъ=EA|4:ы=EB|4:ь=EC|4:э=ED|4:ю=EE|4:я=EF|4:Ё=F0|4:ё=F1|4:€=F2|3:=FA|4:$=FC|4:¦=FF|
}
Add(Copy,16064903,539,322)
{
Count=1
link(onCopy,4814907:doValue,[])
link(Str,12277334:Var3,[(545,313)(531,313)(531,369)])
}
Add(For,836090,483,322)
{
Start=1
link(onEvent,16064903:doCopy,[])
link(onStop,15548081:doData,[(522,335)(522,391)])
link(End,6988335:Result,[(496,313)(468,313)(468,362)(433,362)])
}
Add(If_else,11368991,749,329)
{
link(onTrue,2218130:doEvent1,[])
link(Op1,4814907:Value,[(755,320)(691,320)(691,368)(601,368)])
}
Add(ArrayEnum,15904300,651,322)
{
link(onItem,13116458:doSplit,[])
link(Array,9551083:Array,[])
}
Add(Length,6988335,427,322)
{
link(onLength,836090:doFor,[])
link(Str,12277334:Var1,[(433,313)(405,313)])
}
Add(Memory,4814907,595,322)
{
link(onData,15904300:doEnum,[])
}
Add(StrPart,13116458,700,322)
{
Char="="
Point(Right)
link(onPart,11368991:doCompare,[])
}
Add(StrCatDelim,12864472,889,329)
{
Point(doClear)
link(onStrCatDlm,2900536:doValue,[])
link(Str2,12864472:Result,[(902,317)(884,317)(884,372)(895,372)])
}
Add(Memory,2900536,938,329)
{
}
Add(Memory,2176649,833,329)
{
Point(Data)
link(onData,12864472:doStrCatDlm,[])
link(Data,13116458:Right,[(839,320)(792,320)(792,368)(706,368)])
}
Add(Hub,16220773,385,315)
{
link(onEvent1,12864472:doClear,[(410,321)(410,307)(872,307)(872,342)])
link(onEvent2,6988335:doLength,[])
}
Add(DoData,15548081,938,385)
{
link(onEventData,9084977:doEvent1,[])
link(Data,2900536:Value,[])
}
Add(GetDataEx,12277334,399,364)
{
Angle=3
link(Data,11241415:Value,[(342,369)])
}
Add(Hub,2218130,798,329)
{
link(onEvent1,2176649:doValue,[])
link(onEvent2,15904300:doStop,[(823,342)(823,377)(641,377)(641,335)])
}
Add(StrList,12481905,693,539)
{
Strings=#1: |1:!|1:"|1:#|1:№|1:%|1:&|1:’|1:(|1:)|1:*|1:+|1:,|1:-|1:.|1:/|1:0|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|1::|1:;|1:‹|1:=|1:›|1:?|1:@|1:A|1:B|1:C|1:D|1:E|1:F|1:G|1:H|1:I|1:J|1:K|1:L|1:M|1:N|1:O|1:P|1:Q|1:R|1:S|1:T|1:U|1:V|1:W|1:X|1:Y|1:Z|1:[|1:\|1:]|1:^|1:_|1:`|1:a|1:b|1:c|1:d|1:e|1:f|1:g|1:h|1:i|1:j|1:K|1:l|1:m|1:n|1:o|1:p|1:q|1:r|1:s|1:t|1:u|1:v|1:w|1:x|1:y|1:z|1:{|1:||1:}|1:~|1:А|1:Б|1:В|1:Г|1:Д|1:Е|1:Ж|1:З|1:И|1:Й|1:К|1:Л|1:М|1:Н|1:О|1:П|1:Р|1:С|1:Т|1:У|1:Ф|1:Х|1:Ц|1:Ч|1:Ш|1:Щ|1:Ъ|1:Ы|1:Ь|1:Э|1:Ю|1:Я|1:а|1:б|1:в|1:г|1:д|1:е|1:ж|1:з|1:и|1:й|1:к|1:л|1:м|1:н|1:о|1:п|1:-|1:-|1:-|1:¦|1:+|1:¦|1:¦|1:¬|1:¬|1:¦|1:¦|1:¬|1:-|1:-|1:-|1:¬|1:L|1:+|1:T|1:+|1:-|1:+|1:¦|1:¦|1:L|1:г|1:¦|1:T|1:¦|1:+|1:¦|1:¦|1:T|1:T|1:L|1:L|1:-|1:г|1:+|1:+|1:-|1:-|1:-|1:-|1:¦|1:¦|1:-|1:р|1:с|1:т|1:у|1:ф|1:х|1:ц|1:ч|1:ш|1:щ|1:ъ|1:ы|1:ь|1:э|1:ю|1:я|1:Ё|1:ё|1:€|1:=|1:$|1:¦|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,3589110:doGetString,[])
}
Add(Button,12465135,217,308)
{
Left=20
Top=10
Data=String( !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦ !"#№%&’()*+,-./0123456789:;‹=›?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijKlmnopqrstuvwxyz{|}~АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп---¦+¦¦¬¬¦¦¬---¬L+T+-+¦¦Lг¦T¦+¦¦TTLL-г++----¦¦-рстуфхцчшщъыьэюяЁё€=$¦)
link(onClick,10333670:doEvent1,[])
}
Add(Memory,11241415,336,315)
{
link(onData,16220773:doEvent1,[])
}
Add(StrList,3589110,735,504)
{
Strings=#2:20|2:21|2:22|2:23|2:24|2:25|2:26|2:27|2:28|2:29|2:2A|2:2B|2:2C|2:2D|2:2E|2:2F|2:30|2:31|2:32|2:33|2:34|2:35|2:36|2:37|2:38|2:39|2:3A|2:3B|2:3C|2:3D|2:3E|2:3F|2:40|2:41|2:42|2:43|2:44|2:45|2:46|2:47|2:48|2:49|2:4A|2:4B|2:4C|2:4D|2:4E|2:4F|2:50|2:51|2:52|2:53|2:54|2:55|2:56|2:57|2:58|2:59|2:5A|2:5B|2:5C|2:5D|2:5E|2:5F|2:60|2:61|2:62|2:63|2:64|2:65|2:66|2:67|2:68|2:69|2:6A|2:6B|2:6C|2:6D|2:6E|2:6F|2:70|2:71|2:72|2:73|2:74|2:75|2:76|2:77|2:78|2:79|2:7A|2:7B|2:7C|2:7D|2:7E|2:80|2:81|2:82|2:83|2:84|2:85|2:86|2:87|2:88|2:89|2:8A|2:8B|2:8C|2:8D|2:8E|2:8F|2:90|2:91|2:92|2:93|2:94|2:95|2:96|2:97|2:98|2:99|2:9A|2:9B|2:9C|2:9D|2:9E|2:9F|2:A0|2:A1|2:A2|2:A3|2:A4|2:A5|2:A6|2:A7|2:A8|2:A9|2:AA|2:AB|2:AC|2:AD|2:AE|2:AF|2:B0|2:B1|2:B2|2:B3|2:B4|2:B5|2:B6|2:B7|2:B8|2:B9|2:BA|2:BB|2:BC|2:BD|2:BE|2:BF|2:C0|2:C1|2:C2|2:C3|2:C4|2:C5|2:C6|2:C7|2:C8|2:C9|2:CA|2:CB|2:CC|2:CD|2:CE|2:CF|2:D0|2:D1|2:D2|2:D3|2:D4|2:D5|2:D6|2:D7|2:D8|2:D9|2:DA|2:DB|2:DC|2:DD|2:DE|2:DF|2:E0|2:E1|2:E2|2:E3|2:E4|2:E5|2:E6|2:E7|2:E8|2:E9|2:EA|2:EB|2:EC|2:ED|2:EE|2:EF|2:F0|2:F1|2:F2|2:FA|2:FC|2:FF|
Point(onGetString)
Point(doGetString)
link(onGetString,654926:doStrCat,[])
}
Add(Str_Enum,16235942,651,581)
{
Delimiter=""
OnlyDivGroup=1
link(onEnum,12481905:doGetIndex,[])
link(onEndEnum,6249297:doEvent1,[])
}
Add(Hub,10333670,266,308)
{
link(onEvent1,3303413:doEvent1,[])
link(onEvent2,4834161:doEvent1,[(286,321)(286,580)])
}
Add(StrCat,654926,784,511)
{
Point(doClear)
link(Str1,15244069:Var1,[(790,499)(778,499)(778,551)])
}
Add(DoData,4144134,784,588)
{
link(onEventData,16119314:doEvent1,[])
link(Data,15244069:Var2,[])
}
Add(GetDataEx,15244069,784,546)
{
link(Data,654926:Result,[])
}
Add(Hub,6249297,749,588)
{
link(onEvent1,4144134:doData,[])
link(onEvent2,654926:doClear,[(773,601)(773,524)])
}
Add(Edit,16048916,854,595)
{
Left=5
Top=65
Width=305
Text=""
}
Add(Label,14744663,1064,210)
{
Left=340
Top=35
}
Add(Label,2328298,910,497)
{
Left=340
Top=70
}
Add(TimeCounter,2197787,1022,203)
{
link(onStop,14744663:doText,[])
}
Add(TimeCounter,878263,854,490)
{
link(onStop,2328298:doText,[])
}
Add(Hub,3303413,308,308)
{
link(onEvent1,2197787:doStart,[(342,314)(342,209)])
link(onEvent2,11241415:doValue,[])
}
Add(Hub,9084977,987,385)
{
link(onEvent1,2197787:doStop,[(1011,391)(1011,216)])
link(onEvent2,5460572:doText,[])
}
Add(Hub,4834161,623,574)
{
link(onEvent1,878263:doStart,[(645,580)(645,496)])
link(onEvent2,16235942:doEnum,[])
}
Add(Hub,16119314,826,588)
{
link(onEvent1,878263:doStop,[(845,594)(845,503)])
link(onEvent2,16048916:doText,[])
}

Редактировалось 4 раз(а), последний 2018-07-14 09:21:30
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#4: 2018-07-14 09:36:05 ЛС | профиль | цитата
А лишнее зачем?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#5: 2018-07-14 09:42:13 ЛС | профиль | цитата
А вот я все стесняюсь спросить: а что за хрень нарисована в списке замен ???
Если выкинуть самое непристойное (не все !!!), то вроде бы и работает ...
Add(Edit,12727410,224,98)
{
Left=14
Top=7
Width=351
Text="1234"
ClearAfterEnter=1
link(onEnter,2398653:doMultiReplace,[])
}
Add(Edit,7318913,322,105)
{
Left=15
Top=36
Width=350
Text=""
}
Add(MultiReplace,2398653,273,105)
{
ReplaceList="!=21;\r\n"=22;\r\n#=23;\r\n№=24;\r\n%=25;\r\n&=26;\r\n’=27;\r\n(=28;\r\n)=29;\r\n*=2A;\r\n+=2B;\r\n,=2C;\r\n-=2D;\r\n.=2E;\r\n/=2F;\r\n0=30;\r\n1=31;\r\n2=32;\r\n3=33;\r\n4=34;\r\n5=35;\r\n6=36;\r\n7=37;\r\n8=38;\r\n9=39;\r\n:=3A;\r\n<=3C;\r\n>=3E;\r\n?=3F;\r\n@=40;\r\nA=41;\r\nB=42;\r\nC=43;\r\nD=44;\r\nE=45;\r\nF=46;\r\nG=47;\r\nH=48;\r\nI=49;\r\nJ=4A;\r\nK=4B;\r\nL=4C;\r\nM=4D;\r\nN=4E;\r\nO=4F;\r\nP=50;\r\nQ=51;\r\nR=52;\r\nS=53;\r\nT=54;\r\nU=55;\r\nV=56;\r\nW=57;\r\nX=58;\r\nY=59;\r\nZ=5A;\r\n[=5B;\r\n\=5C;\r\n]=5D;\r\n^=5E;\r\n_=5F;\r\n`=60;\r\na=61;\r\nb=62;\r\nc=63;\r\nd=64;\r\ne=65;\r\nf=66;\r\ng=67;\r\nh=68;\r\ni=69;\r\nj=6A;\r\nK=6B;\r\nl=6C;\r\nm=6D;\r\nn=6E;\r\no=6F;\r\np=70;\r\nq=71;\r\nr=72;\r\ns=73;\r\nt=74;\r\nu=75;\r\nv=76;\r\nw=77;\r\nx=78;\r\ny=79;\r\nz=7A;\r\n{=7B;\r\n|=7C;\r\n}=7D;\r\n~=7E;\r\nА=80;\r\nБ=81;\r\nВ=82;\r\nГ=83;\r\nД=84;\r\nЕ=85;\r\nЖ=86;\r\nЗ=87;\r\nИ=88;\r\nЙ=89;\r\nК=8A;\r\nЛ=8B;\r\nМ=8C;\r\nН=8D;\r\nО=8E;\r\nП=8F;\r\nР=90;\r\nС=91;\r\nТ=92;\r\nУ=93;\r\nФ=94;\r\nХ=95;\r\nЦ=96;\r\nЧ=97;\r\nШ=98;\r\nЩ=99;\r\nЪ=9A;\r\nЫ=9B;\r\nЬ=9C;\r\nЭ=9D;\r\nЮ=9E;\r\nЯ=9F;\r\nа=A0;\r\nб=A1;\r\nв=A2;\r\nг=A3;\r\nд=A4;\r\nе=A5;\r\nж=A6;\r\nз=A7;\r\nи=A8;\r\nй=A9;\r\nк=AA;\r\nл=AB;\r\nм=AC;\r\nн=AD;\r\nо=AE;\r\nп=AF;\r\n-=B0;\r\n-=B1;\r\n-=B2;\r\n¦=B3;\r\n+=B4;\r\n¦=B5;\r\n¦=B6;\r\n¬=B7;\r\n¬=B8;\r\n¦=B9;\r\n¦=BA;\r\n¬=BB;\r\n-=BC;\r\n-=BD;\r\n-=BE;\r\n¬=BF;\r\nL=C0;\r\n+=C1;\r\nT=C2;\r\n+=C3;\r\n-=C4;\r\n+=C5;\r\n¦=C6;\r\n¦=C7;\r\nL=C8;\r\nг=C9;\r\n¦=CA;\r\nT=CB;\r\n¦=CC;\r\n+=CE;\r\n¦=CF;\r\n¦=D0;\r\nT=D1;\r\nT=D2;\r\nL=D3;\r\nL=D4;\r\n-=D5;\r\nг=D6;\r\n+=D7;\r\n+=D8;\r\n-=D9;\r\n-=DA;\r\n-=DB;\r\n-=DC;\r\n¦=DD;\r\n¦=DE;\r\n-=DF;\r\nр=E0;\r\nс=E1;\r\nт=E2;\r\nу=E3;\r\nф=E4;\r\nх=E5;\r\nц=E6;\r\nч=E7;\r\nш=E8;\r\nщ=E9;\r\nъ=EA;\r\nы=EB;\r\nь=EC;\r\nэ=ED;\r\nю=EE;\r\nя=EF;\r\nЁ=F0;\r\nё=F1;\r\n€=F2;\r\n$=FC;\r\n¦=FF;"
EnterTag=""
Mode=1
link(onResult,7318913:doText,[])
}

Редактировалось 1 раз(а), последний 2018-07-14 09:42:38
карма: 9

0
Ответов: 9906
Рейтинг: 351
#6: 2018-07-14 11:39:17 ЛС | профиль | цитата
Tad писал(а):
А лишнее зачем?

Давно хотел спросить, хотя и не в тему...
А когда коллегам надоест смотреть на "большие и толстые" StrList-ы
Типа они самые главные на схеме

Напомню историю: такое количество открытых точек появилось при самом зарождении элемента.
Это было так давно, что технологии "звездочек" в INI-файлах еще и не существовало.
В общем -- совсем давно.
Методом копипастинга открытые точки doLoad/doSave перекочевали и в некоторые другие элементы.

У себя лично (давно уже), я проставил "звездочки" на этих методах в следующих файлах:
ComboBox.ini
HilightMemo.ini
ListBox.ini
Memo.ini
RGN_Array.ini
RichEdit.ini
StringTable.ini
StringTableMT.ini
StrList.ini
TreeView.ini
TreeViewEx.ini
Это - предложение

Редактировалось 1 раз(а), последний 2018-07-14 11:39:54
карма: 9

0
Ответов: 125
Рейтинг: 6
#7: 2018-07-14 12:04:35 ЛС | профиль | цитата
Galkov писал(а):
то вроде бы и работает
А можно ли заставить заменяться пробел? В соответствующей теме этот вопрос поднимался, прозвучало нерабочее решение дублирования пробела и вопрос был забыт. Может кто-то нашёл некостыльное решение? Пока что у меня последовательно Replace справляется.

Tad писал(а):
А лишнее зачем?
Затем, что я же не собираюсь использовать поля ввода, это как временный элемент, чтобы потом можно было схему вложить в мультиэлемент.

Galkov писал(а):
а что за хрень нарисована в списке замен ???
Некоторые символы - управляющие символы устройства.

Galkov писал(а):
хотя и не в тему
Зато полезно) Я раньше не догадывался подправлять элементы, а скрытие только doSave/doLoad уже приводит в вид стандартного размера элементов)

Редактировалось 4 раз(а), последний 2018-07-14 12:10:57
карма: 0

0
Ответов: 9906
Рейтинг: 351
#8: 2018-07-14 12:51:57 ЛС | профиль | цитата
mrumbert писал(а):
А можно ли заставить заменяться пробел?

Не вижу препятствий:
Add(Edit,12727410,168,77)
{
Left=14
Top=7
Width=351
Text="1 2 3 4"
ClearAfterEnter=1
link(onEnter,2398653:doMultiReplace,[])
}
Add(Edit,7318913,266,84)
{
Left=15
Top=36
Width=350
Text=""
}
Add(MultiReplace,2398653,217,84)
{
ReplaceList="\ \=20 \;\r\n!=21 \;\r\n"=22 \;\r\n#=23 \;\r\n№=24 \;\r\n%=25 \;\r\n&=26 \;\r\n’=27 \;\r\n(=28 \;\r\n)=29 \;\r\n*=2A \;\r\n+=2B \;\r\n,=2C \;\r\n-=2D \;\r\n.=2E \;\r\n/=2F \;\r\n0=30 \;\r\n1=31 \;\r\n2=32 \;\r\n3=33 \;\r\n4=34 \;\r\n5=35 \;\r\n6=36 \;\r\n7=37 \;\r\n8=38 \;\r\n9=39 \;\r\n:=3A \;\r\n<=3C \;\r\n>=3E \;\r\n?=3F \;\r\n@=40 \;\r\nA=41 \;\r\nB=42 \;\r\nC=43 \;\r\nD=44 \;\r\nE=45 \;\r\nF=46 \;\r\nG=47 \;\r\nH=48 \;\r\nI=49 \;\r\nJ=4A \;\r\nK=4B \;\r\nL=4C \;\r\nM=4D \;\r\nN=4E \;\r\nO=4F \;\r\nP=50 \;\r\nQ=51 \;\r\nR=52 \;\r\nS=53 \;\r\nT=54 \;\r\nU=55 \;\r\nV=56 \;\r\nW=57 \;\r\nX=58 \;\r\nY=59 \;\r\nZ=5A \;\r\n[=5B \;\r\n\=5C \;\r\n]=5D \;\r\n^=5E \;\r\n_=5F \;\r\n`=60 \;\r\na=61 \;\r\nb=62 \;\r\nc=63 \;\r\nd=64 \;\r\ne=65 \;\r\nf=66 \;\r\ng=67 \;\r\nh=68 \;\r\ni=69 \;\r\nj=6A \;\r\nK=6B \;\r\nl=6C \;\r\nm=6D \;\r\nn=6E \;\r\no=6F \;\r\np=70 \;\r\nq=71 \;\r\nr=72 \;\r\ns=73 \;\r\nt=74 \;\r\nu=75 \;\r\nv=76 \;\r\nw=77 \;\r\nx=78 \;\r\ny=79 \;\r\nz=7A \;\r\n{=7B \;\r\n|=7C \;\r\n}=7D \;\r\n~=7E \;\r\nА=80 \;\r\nБ=81 \;\r\nВ=82 \;\r\nГ=83 \;\r\nД=84 \;\r\nЕ=85 \;\r\nЖ=86 \;\r\nЗ=87 \;\r\nИ=88 \;\r\nЙ=89 \;\r\nК=8A \;\r\nЛ=8B \;\r\nМ=8C \;\r\nН=8D \;\r\nО=8E \;\r\nП=8F \;\r\nР=90 \;\r\nС=91 \;\r\nТ=92 \;\r\nУ=93 \;\r\nФ=94 \;\r\nХ=95 \;\r\nЦ=96 \;\r\nЧ=97 \;\r\nШ=98 \;\r\nЩ=99 \;\r\nЪ=9A \;\r\nЫ=9B \;\r\nЬ=9C \;\r\nЭ=9D \;\r\nЮ=9E \;\r\nЯ=9F \;\r\nа=A0 \;\r\nб=A1 \;\r\nв=A2 \;\r\nг=A3 \;\r\nд=A4 \;\r\nе=A5 \;\r\nж=A6 \;\r\nз=A7 \;\r\nи=A8 \;\r\nй=A9 \;\r\nк=AA \;\r\nл=AB \;\r\nм=AC \;\r\nн=AD \;\r\nо=AE \;\r\nп=AF \;\r\n-=B0 \;\r\n-=B1 \;\r\n-=B2 \;\r\n¦=B3 \;\r\n+=B4 \;\r\n¦=B5 \;\r\n¦=B6 \;\r\n¬=B7 \;\r\n¬=B8 \;\r\n¦=B9 \;\r\n¦=BA \;\r\n¬=BB \;\r\n-=BC \;\r\n-=BD \;\r\n-=BE \;\r\n¬=BF \;\r\nL=C0 \;\r\n+=C1 \;\r\nT=C2 \;\r\n+=C3 \;\r\n-=C4 \;\r\n+=C5 \;\r\n¦=C6 \;\r\n¦=C7 \;\r\nL=C8 \;\r\nг=C9 \;\r\n¦=CA \;\r\nT=CB \;\r\n¦=CC \;\r\n+=CE \;\r\n¦=CF \;\r\n¦=D0 \;\r\nT=D1 \;\r\nT=D2 \;\r\nL=D3 \;\r\nL=D4 \;\r\n-=D5 \;\r\nг=D6 \;\r\n+=D7 \;\r\n+=D8 \;\r\n-=D9 \;\r\n-=DA \;\r\n-=DB \;\r\n-=DC \;\r\n¦=DD \;\r\n¦=DE \;\r\n-=DF \;\r\nр=E0 \;\r\nс=E1 \;\r\nт=E2 \;\r\nу=E3 \;\r\nф=E4 \;\r\nх=E5 \;\r\nц=E6 \;\r\nч=E7 \;\r\nш=E8 \;\r\nщ=E9 \;\r\nъ=EA \;\r\nы=EB \;\r\nь=EC \;\r\nэ=ED \;\r\nю=EE \;\r\nя=EF \;\r\nЁ=F0 \;\r\nё=F1 \;\r\n€=F2 \;\r\n$=FC \;\r\n¦=FF \;"
EnterTag=""
Mode=1
link(onResult,7318913:doText,[])
}

mrumbert писал(а):
Некоторые символы - управляющие символы устройства.

От этого оно не перестает быть хренью:
4mrumbert.png
Извините, но если псевдографику (из 866 локали) перекодировать средствами винды в 1251 -- то получится именно она. Хрень.
Хочешь корректного результата - пиши корректно Список_Замен... Например, типа такого
.......
\179=B3;
\180=B4;
.......
И не используй в Списке_Замен "запрещенные" символы.
В данном случае, это: ';', '=' и переводы строк.

Редактировалось 5 раз(а), последний 2018-07-14 13:01:45
карма: 9

0
Ответов: 125
Рейтинг: 6
#9: 2018-07-14 13:07:45 ЛС | профиль | цитата
Galkov, Всего 5 символов отсутствует, а и без них всё прекрасно работает) Спасибо!
карма: 0

0
Ответов: 9906
Рейтинг: 351
#10: 2018-07-14 14:00:21 ЛС | профиль | цитата
mrumbert писал(а):
Всего 5 символов отсутствует

Вообще-то, "запрещенных" символов из печатных только 2: ';' и '='.
А вовсе не 5.

mrumbert писал(а):
всё прекрасно работает

Как все-таки отличаются понятия прекрасного у людей...
4mrumbert2.png
Ну вот не верю я, что большая 'Щ' -- это $99.

А если напрячься, и коды Delimiter и EndSymbol сделать служебными... Тогда все печатные символы можно воспроизвести.
И буква 'Щ' будет нормальной:
Add(Edit,12727410,161,77)
{
Left=14
Top=7
Width=351
Text="1 2 3 4"
ClearAfterEnter=1
link(onEnter,2398653:doMultiReplace,[])
}
Add(Edit,7318913,273,84)
{
Left=15
Top=36
Width=350
Text=""
}
Add(MultiReplace,2398653,217,84)
{
ReplaceList="\ \\\n20 \\\r\r\n\33 \n21 \\\r\r\n\34 \n22 \\\r\r\n\35 \n23 \\\r\r\n\36 \n24 \\\r\r\n\37 \n25 \\\r\r\n\38 \n26 \\\r\r\n\39 \n27 \\\r\r\n\40 \n28 \\\r\r\n\41 \n29 \\\r\r\n\42 \n2A \\\r\r\n\43 \n2B \\\r\r\n\44 \n2C \\\r\r\n\45 \n2D \\\r\r\n\46 \n2E \\\r\r\n\47 \n2F \\\r\r\n\48 \n30 \\\r\r\n\49 \n31 \\\r\r\n\50 \n32 \\\r\r\n\51 \n33 \\\r\r\n\52 \n34 \\\r\r\n\53 \n35 \\\r\r\n\54 \n36 \\\r\r\n\55 \n37 \\\r\r\n\56 \n38 \\\r\r\n\57 \n39 \\\r\r\n\58 \n3A \\\r\r\n\59 \n3B \\\r\r\n\60 \n3C \\\r\r\n\61 \n3D \\\r\r\n\62 \n3E \\\r\r\n\63 \n3F \\\r\r\n\64 \n40 \\\r\r\n\65 \n41 \\\r\r\n\66 \n42 \\\r\r\n\67 \n43 \\\r\r\n\68 \n44 \\\r\r\n\69 \n45 \\\r\r\n\70 \n46 \\\r\r\n\71 \n47 \\\r\r\n\72 \n48 \\\r\r\n\73 \n49 \\\r\r\n\74 \n4A \\\r\r\n\75 \n4B \\\r\r\n\76 \n4C \\\r\r\n\77 \n4D \\\r\r\n\78 \n4E \\\r\r\n\79 \n4F \\\r\r\n\80 \n50 \\\r\r\n\81 \n51 \\\r\r\n\82 \n52 \\\r\r\n\83 \n53 \\\r\r\n\84 \n54 \\\r\r\n\85 \n55 \\\r\r\n\86 \n56 \\\r\r\n\87 \n57 \\\r\r\n\88 \n58 \\\r\r\n\89 \n59 \\\r\r\n\90 \n5A \\\r\r\n\91 \n5B \\\r\r\n\92 \n5C \\\r\r\n\93 \n5D \\\r\r\n\94 \n5E \\\r\r\n\95 \n5F \\\r\r\n\96 \n60 \\\r\r\n\97 \n61 \\\r\r\n\98 \n62 \\\r\r\n\99 \n63 \\\r\r\n\100\n64 \\\r\r\n\101\n65 \\\r\r\n\102\n66 \\\r\r\n\103\n67 \\\r\r\n\104\n68 \\\r\r\n\105\n69 \\\r\r\n\106\n6A \\\r\r\n\107\n6B \\\r\r\n\108\n6C \\\r\r\n\109\n6D \\\r\r\n\110\n6E \\\r\r\n\111\n6F \\\r\r\n\112\n70 \\\r\r\n\113\n71 \\\r\r\n\114\n72 \\\r\r\n\115\n73 \\\r\r\n\116\n74 \\\r\r\n\117\n75 \\\r\r\n\118\n76 \\\r\r\n\119\n77 \\\r\r\n\120\n78 \\\r\r\n\121\n79 \\\r\r\n\122\n7A \\\r\r\n\123\n7B \\\r\r\n\124\n7C \\\r\r\n\125\n7D \\\r\r\n\126\n7E \\\r\r\n\127\n7F \\\r\r\n\128\n80 \\\r\r\n\129\n81 \\\r\r\n\130\n82 \\\r\r\n\131\n83 \\\r\r\n\132\n84 \\\r\r\n\133\n85 \\\r\r\n\134\n86 \\\r\r\n\135\n87 \\\r\r\n\136\n88 \\\r\r\n\137\n89 \\\r\r\n\138\n8A \\\r\r\n\139\n8B \\\r\r\n\140\n8C \\\r\r\n\141\n8D \\\r\r\n\142\n8E \\\r\r\n\143\n8F \\\r\r\n\144\n90 \\\r\r\n\145\n91 \\\r\r\n\146\n92 \\\r\r\n\147\n93 \\\r\r\n\148\n94 \\\r\r\n\149\n95 \\\r\r\n\150\n96 \\\r\r\n\151\n97 \\\r\r\n\152\n98 \\\r\r\n\153\n99 \\\r\r\n\154\n9A \\\r\r\n\155\n9B \\\r\r\n\156\n9C \\\r\r\n\157\n9D \\\r\r\n\158\n9E \\\r\r\n\159\n9F \\\r\r\n\160\nA0 \\\r\r\n\161\nA1 \\\r\r\n\162\nA2 \\\r\r\n\163\nA3 \\\r\r\n\164\nA4 \\\r\r\n\165\nA5 \\\r\r\n\166\nA6 \\\r\r\n\167\nA7 \\\r\r\n\168\nA8 \\\r\r\n\169\nA9 \\\r\r\n\170\nAA \\\r\r\n\171\nAB \\\r\r\n\172\nAC \\\r\r\n\173\nAD \\\r\r\n\174\nAE \\\r\r\n\175\nAF \\\r\r\n\176\nB0 \\\r\r\n\177\nB1 \\\r\r\n\178\nB2 \\\r\r\n\179\nB3 \\\r\r\n\180\nB4 \\\r\r\n\181\nB5 \\\r\r\n\182\nB6 \\\r\r\n\183\nB7 \\\r\r\n\184\nB8 \\\r\r\n\185\nB9 \\\r\r\n\186\nBA \\\r\r\n\187\nBB \\\r\r\n\188\nBC \\\r\r\n\189\nBD \\\r\r\n\190\nBE \\\r\r\n\191\nBF \\\r\r\n\192\nC0 \\\r\r\n\193\nC1 \\\r\r\n\194\nC2 \\\r\r\n\195\nC3 \\\r\r\n\196\nC4 \\\r\r\n\197\nC5 \\\r\r\n\198\nC6 \\\r\r\n\199\nC7 \\\r\r\n\200\nC8 \\\r\r\n\201\nC9 \\\r\r\n\202\nCA \\\r\r\n\203\nCB \\\r\r\n\204\nCC \\\r\r\n\205\nCD \\\r\r\n\206\nCE \\\r\r\n\207\nCF \\\r\r\n\208\nD0 \\\r\r\n\209\nD1 \\\r\r\n\210\nD2 \\\r\r\n\211\nD3 \\\r\r\n\212\nD4 \\\r\r\n\213\nD5 \\\r\r\n\214\nD6 \\\r\r\n\215\nD7 \\\r\r\n\216\nD8 \\\r\r\n\217\nD9 \\\r\r\n\218\nDA \\\r\r\n\219\nDB \\\r\r\n\220\nDC \\\r\r\n\221\nDD \\\r\r\n\222\nDE \\\r\r\n\223\nDF \\\r\r\n\224\nE0 \\\r\r\n\225\nE1 \\\r\r\n\226\nE2 \\\r\r\n\227\nE3 \\\r\r\n\228\nE4 \\\r\r\n\229\nE5 \\\r\r\n\230\nE6 \\\r\r\n\231\nE7 \\\r\r\n\232\nE8 \\\r\r\n\233\nE9 \\\r\r\n\234\nEA \\\r\r\n\235\nEB \\\r\r\n\236\nEC \\\r\r\n\237\nED \\\r\r\n\238\nEE \\\r\r\n\239\nEF \\\r\r\n\240\nF0 \\\r\r\n\241\nF1 \\\r\r\n\242\nF2 \\\r\r\n\243\nF3 \\\r\r\n\244\nF4 \\\r\r\n\245\nF5 \\\r\r\n\246\nF6 \\\r\r\n\247\nF7 \\\r\r\n\248\nF8 \\\r\r\n\249\nF9 \\\r\r\n\250\nFA \\\r\r\n\251\nFB \\\r\r\n\252\nFC \\\r\r\n\253\nFD \\\r\r\n\254\nFE \\\r\r\n\255\nFF \\\r"
Delimiter="\n"
EndSymbol="\r"
EnterTag=""
Mode=1
link(onResult,7318913:doText,[])
}

Редактировалось 3 раз(а), последний 2018-07-14 19:18:33
карма: 9

0
Ответов: 125
Рейтинг: 6
#11: 2018-07-14 15:07:58 ЛС | профиль | цитата
Galkov писал(а):
Как все-таки отличаются понятия прекрасного у людей...
Хм, не проверил буквы в работе, только управляющие символы.

Galkov писал(а):
А если напрячься
Если напрячься, то я не до конца понимаю как всё это работает. Я понял как это работает(/21=!), добавление n передаёт строку неизменной, но не могу найти что это такое, предполагаю, что это коды символов в какой-то кодировке? Зачем в конце три слэша? Если исключить "\r", т.к. это символ конца строки остаётся 2 , возможно это обозначает концовку использования написания таких кодов. Galkov, Расскажи как это называется)

Редактировалось 1 раз(а), последний 2018-07-14 15:08:22
карма: 0

0
Ответов: 9906
Рейтинг: 351
#12: 2018-07-14 16:36:00 ЛС | профиль | цитата
1) Рассказывать, чем символ отличается от байта, кто из них настоящий, а кто есть выдумка яйцеголовых -- нет у меня уже здоровья на такие длинные опусы.

2) Текстовые данные, сделанные нами при разработке схемы, попадают в код программы не напрямую, а через некое дополнительное преобразование (где активно анализируются "обратные косые"). Сделано это для того, чтобы с помощью печатных символов можно было закодировать в программу и служебные тоже. Любые, в общем.
Это касается типов данных data_str и data_list. Текстовые данные типов data_script и data_code идут БЕЗ этого преобразования.

3) Конкретно, этим преобразованием занимается CodeGen.dll. А еще более конкретно - его функция ReplaceSChar.
И наконец, абсолютно конкретно, вот она:
function ReplaceSChar(const s:string):string;
var i,j,k,w:integer;
t:string;
begin
t := '';
i := 1;
while i<=Length(s) do begin
if (s[i] = '\')and(i < Length(s)) then begin
inc(i);
case s[i] of
'\': t := t + '\';
'n': t := t + #10;
'r': t := t + #13;
't': t := t + #9;
'0'..'9': begin
w := 0;
for j := 1 to 3 do begin //ограничение на текстовую длину числа
k := w*10 + ord(s[i]) - ord('0');
if k > 255 then break; //ограничение на величину числа
w := k; inc(i);
if i > Length(s) then break; //правая граница входной строки
if not(s[i] in ['0'..'9']) then break; //значит число кончилось
end;
dec(i); t := t + char(w);
end
else t := t + '\' + s[i];
end;
end else t := t + s[i];
inc(i);
end;
Result := StringToCode(t);
end;

4) В качестве примера "пережевывания обратных косых" можно посмотреть, чего получается, если в нашем примере оставить только первые три замены:
вырезка из hiMainForm_4A2DED0.pas

//Init for MultiReplace;
MultiReplace_5549A70 := THIMultiReplace.Create;
with MultiReplace_5549A70 do begin
_prop_ReplaceList := PChar('\ \'#10'20 \'#13#13#10'! '#10'21 \'#13#13#10'" '#10'22 \'#13#0);
_prop_Delimiter := PChar(#10#0);
_prop_EndSymbol := PChar(#13#0);
_prop_EnterTag := PChar(#0);
_prop_Mode := 1;
end;

Редактировалось 7 раз(а), последний 2018-07-14 19:20:49
карма: 9

0
Ответов: 9906
Рейтинг: 351
#13: 2018-08-15 05:11:36 ЛС | профиль | цитата
nesco, ну вроде ты таки вспомнил пароль от SVN ...

Тогда говори, что ты про это думаешь:
Galkov писал(а):
У себя лично (давно уже), я проставил "звездочки" на этих методах (doLoad/doSave) в следующих файлах:
ComboBox.ini
HilightMemo.ini
ListBox.ini
Memo.ini
RGN_Array.ini
RichEdit.ini
StringTable.ini
StringTableMT.ini
StrList.ini
TreeView.ini
TreeViewEx.ini
Это - предложение


Редактировалось 2 раз(а), последний 2018-08-15 05:13:51
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#14: 2018-08-15 08:30:34 ЛС | профиль | цитата
Давно предлагал скрыть ВСЕ точки. Основное возражение - "я привык что первая точка doAdd".
А мне нужно, чтобы первой была doClear.
Поэтому держу 2 Hiasm-а. Один для форума, а второй, у которого почти у всех компонент все точки скрыты, для себя.
Например у DoData скрыта только верхняя точка.
Вот так выглядят ComboBox и StrList у меня.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 632
Рейтинг: 4
#15: 2018-08-17 01:11:57 ЛС | профиль | цитата
Tad писал(а):
почти у всех компонент все точки скрыты

Когда в официальную hiasm добавят, было бы очень удобно!
Tad писал(а):
держу 2 Hiasm-а

Tad писал(а):
для себя

Если сделать можно официально, почему не кто не сделал?
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)