DarkHUNTER писал(а):
А возможно ли сделать что бы вместо 1 и 2 были слова?и для любых чисел, а не только для 20
Add(MainForm,2953706,126,56)
{
Width=286
Height=139
Caption="Сравнение чисел"
}
Add(Edit,9744720,210,56)
{
Left=20
Top=20
Text=""
Alignment=1
DataType=1
}
Add(Button,3322241,189,140)
{
Left=20
Top=65
Width=70
Caption="Сравнить"
link(onClick,7353377:doCalc,[])
}
Add(Label,7435961,336,168)
{
Left=75
Top=25
Width=105
Caption=""
AutoSize=1
Alignment=2
link(Text,584263:String,[])
}
Add(MathParse,7353377,245,140)
{
MathStr="(%1 < %2) + (%1 > %2) * 2 + (%1=%2)*3"
link(onResult,7942601:doEvent1,[])
link(X1,9744720:Text,[(251,110)(216,110)])
link(X2,12630374:Text,[])
}
Add(StrList,584263,315,98)
{
Strings=#0:|10:меньше чем|10:больше чем|5:равно|
Point(doGetString)
Point(String)
}
Add(Hub,7942601,287,140)
{
link(onEvent1,584263:doGetString,[])
link(onEvent2,7435961:doText,[(319,153)(319,174)])
}
Add(Edit,12630374,252,56)
{
Left=185
Top=20
Text="20"
Alignment=1
DataType=1
}