code_20992.txt
Она не рабочая, просто для наглядности. Как сделать, чтобы при невыполнении условия выбирался другой идентификатор, никак не соображу. Подскажите пожалуйста.
Может вот так?
Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,294,273)
{
Width=127
Height=171
Position=1
}
Add(ArrayRW,9499200,336,504)
{
link(onRead,8715614:doAdd,[])
link(Array,11771083:Var,[])
}
Add(ListBox,15117334,322,385)
{
Left=260
Top=160
Visible=1
Strings=#6:база 1|
}
Add(ListBox,13625876,364,385)
{
Left=325
Top=135
Visible=1
Strings=#6:база 2|
}
Add(GetIndexData,11771083,336,455)
{
link(onIndex,9499200:doRead,[(380,461)(380,485)(324,485)(324,510)])
link(Data1,15117334:Array,[])
link(Data2,13625876:Array,[(349,439)(384,439)])
}
Add(MathParse,14809027,252,455)
{
MathStr="(%1 = %2)"
link(onResult,11771083:doIndex,[])
link(X1,13598807:Text,[(258,422)(237,422)])
link(X2,13371874:Text,[(265,422)(279,422)])
}
Add(Edit,13598807,231,357)
{
Left=5
Top=25
Text="4"
}
Add(Edit,13371874,273,357)
{
Left=60
Top=25
Text="5"
}
Add(Button,6529739,189,455)
{
Left=5
link(onClick,14809027:doCalc,[])
}
Add(ListBox,8715614,385,504)
{
Left=5
Top=50
Width=105
}
Схема рабочая. Когда значения равны должна выводиться база 2, когда не равны - база 1. В данном случае почему-то не выводится база 2.



Поиск
Друзья
Администрация