217.118.83.142 писал(а):
в поле от числа стояла точкаНет, нельзя -- точка используется для представления реальных чисел. Хотя, если предполагается испльзовать только целые числа, то можно вот так
Add(MainForm,5276321,238,280)
{
Width=306
Height=156
}
Add(Edit,13416691,301,224)
{
Left=5
Top=10
Width=110
Text="10"
DataType=4
}
Add(Edit,12485606,406,224)
{
Left=180
Top=10
Width=110
Text="2.200"
}
Add(Edit,14270391,406,329)
{
Left=180
Top=50
Width=110
Text=""
DataType=4
}
Add(Label,9147441,301,161)
{
Left=115
Top=15
Width=58
Height=17
Caption="% от числа"
}
Add(Label,5020040,350,161)
{
Left=105
Top=50
Width=55
Height=17
Caption="результат"
}
Add(Button,974589,238,329)
{
Left=40
Top=90
Width=220
Caption="Вычислить"
link(onClick,8697959:doOperation,[])
}
Add(Math,8697959,301,329)
{
OpType=3
Op2=100
link(onResult,2930793:doOperation,[])
link(Op1,13416691:Text,[])
}
Add(Math,2930793,350,329)
{
OpType=2
link(onResult,14270391:doText,[])
link(Op2,6987767:GetData,[])
}
Add(EventFromData,6987767,357,280)
{
link(onEvent,9786683:doReplace,[])
}
Add(Replace,9786683,406,280)
{
SubStr="."
link(onReplace,6987767:doData,[(450,286)(450,274)(345,274)(345,286)])
link(Str,12485606:Text,[])
}