Вверх ↑
Ответов: 527
Рейтинг: 167
#1: 2025-08-26 18:19:18 ЛС | профиль | цитата
Andrej77rv писал(а):
Это только перебор строки делать?

а чем плох перебор ?

Add(MainForm,2953706,462,301)
{
Width=316
Height=150
link(onCreate,15779215:doEnum,[])
}
Add(Math,275052,644,315)
{
OpType=6
link(onResult,16567299:doStrCat,[])
link(Op1,15779215:Part,[(650,296)(576,296)(576,355)(538,355)])
}
Add(Edit,2292789,525,245)
{
Left=25
Top=20
Width=250
Font=[MS Sans Serif,8,1,0,1]
Text="01101000011001010110110001101100"
}
Add(Edit,14247430,595,245)
{
Left=25
Top=45
Width=250
Font=[MS Sans Serif,8,1,0,1]
Text="01110010011011000110010010000000"
}
Add(Str_Enum,15779215,525,315)
{
Delimiter=""
link(onEnum,8909271:doCopy,[])
link(onEndEnum,13824030:doText,[(565,328)(565,384)])
link(String,2292789:Text,[])
}
Add(Copy,8909271,595,315)
{
Count=1
link(onCopy,275052:doOperation,[])
link(Str,14247430:Text,[])
link(Position,15779215:NumSubStr,[(608,303)(587,303)(587,364)(531,364)])
}
Add(StrCat,16567299,700,315)
{
link(Str1,14400854:Var1,[(706,303)(688,303)(688,355)])
}
Add(Edit,13824030,700,378)
{
Left=25
Top=70
Width=250
Font=[MS Sans Serif,8,1,0,1]
Text="01101000011001010110110001101100"
link(Str,14400854:Var2,[])
}
Add(GetDataEx,14400854,700,350)
{
link(Data,16567299:Result,[])
}

карма: 4

0