Andrej77rv писал(а):
на компоненте MathParse
Add(MainForm,2953706,70,161)
{
Height=146
}
Add(Label,16010429,70,112)
{
Left=10
Top=35
Caption="Переместить"
}
Add(Edit,15534779,238,84)
{
Left=85
Top=35
Width=40
Text="6"
DataType=2
}
Add(Label,2263545,119,112)
{
Left=130
Top=35
Caption="символов из окончания в начало"
}
Add(Edit,16030860,182,84)
{
Left=5
Top=5
Width=370
Text="01101000011001010110110001101100"
}
Add(Edit,12486798,532,161)
{
Left=5
Top=65
Width=370
}
Add(Button,5647210,133,161)
{
Left=310
Top=35
Caption=">>>"
link(onClick,5178570:doLength,[])
}
Add(Length,5178570,182,161)
{
link(onLength,149539:doOperation,[])
link(Str,11394546:Var2,[])
}
Add(Copy,977682,336,161)
{
link(onCopy,1774208:doValue,[])
link(Str,6492981:Var2,[])
link(Position,10343967:Result,[(349,152)(328,152)(328,201)(286,201)])
link(Count,3793510:Var3,[(356,138)])
}
Add(GetDataEx,11394546,182,140)
{
link(Data,16030860:Text,[])
}
Add(GetDataEx,3793510,238,133)
{
link(Data,15534779:Text,[])
}
Add(Memory,1774208,378,161)
{
link(onData,13911957:doCopy,[])
}
Add(GetDataEx,6492981,336,140)
{
Angle=3
link(Data,11394546:Var3,[])
}
Add(Copy,13911957,427,161)
{
Position=1
link(onCopy,3088606:doStrCat,[])
link(Str,6492981:Var3,[(433,145)])
link(Count,149539:Result,[(447,152)(419,152)(419,208)(237,208)])
}
Add(Math,10343967,280,161)
{
Op1=1
ResultType=0
link(onResult,977682:doCopy,[])
}
Add(Math,149539,231,161)
{
OpType=1
link(onResult,10343967:doOperation,[])
link(Op2,3793510:Var2,[])
}
Add(StrCat,3088606,476,161)
{
link(onStrCat,12486798:doText,[])
link(Str1,1774208:Value,[(482,152)(468,152)(468,201)(384,201)])
}