flint2 писал(а):
Примерно такА ничего, что содержится нештатный компонент Некоторые принципиально не используют сторонние компоненты.
------------ Дoбавленo в 11.48:
juk, а вот так не проще будет твоя схема
Add(MainForm,1172498,217,245)
{
Width=381
Height=430
}
Add(StrList,13988253,371,252)
{
Strings=#7:9990050|7:5674378|7:9990877|7:6657432|7:9086654|7:0000006|7:5555546|7:7915751|7:0907643|7:0099989|7:4445534|7:9980098|7:1111111|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,13641365:doCase,[])
}
Add(StrList,11738073,294,224)
{
Strings=#7:6515750|7:6789756|7:1288751|7:7915901|7:6715751|7:7915751|7:8715759|7:9990050|7:5674378|7:9990877|7:5554657|7:9909875|7:2234138|7:5674393|7:7874563|7:7915751|7:0907643|7:6678564|7:6578905|7:7915751|7:1111111|
Point(doGetIndex)
Point(onGetIndex)
}
Add(Case,13641365,427,259)
{
Value=Integer(-1)
link(onTrue,7652041:doAdd,[(473,272)(473,398)(298,398)(298,349)])
}
Add(ArrayEnum,9781799,308,294)
{
link(onItem,13988253:doGetIndex,[])
link(Array,11738073:Array,[])
}
Add(Button,11013822,217,294)
{
Left=20
Top=15
link(onClick,9781799:doEnum,[])
}
Add(Memo,7652041,308,343)
{
Left=95
Top=15
Width=270
Height=340
ScrollBars=3
link(Str,9781799:Item,[])
}