Dseren писал(а):
а попроще нельзяМогу предложить немного "проще"
code_26470.txt
------------ Дoбавленo в 01.26:
Но можно и слегка "упростить" схему sаmakacd-a
Add(MainForm,2953706,259,154)
{
}
Add(StringTableMT,461807,427,182)
{
Left=10
Top=15
Width=365
Columns=#1:1|1:2|1:3|
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(ColumnArray)
Point(doMT_ReplaceCol)
}
Add(Memo,7707124,308,140)
{
Left=10
Top=105
Width=365
Strings=#1:4|1:5|1:6|
}
Add(Button,2588147,259,217)
{
Left=155
Top=200
Width=75
Caption="Поменять!"
link(onClick,9284384:doEnum,[])
}
Add(ArrayEnum,9284384,322,217)
{
link(onItem,11744218:doAdd,[])
link(Array,7707124:Array,[])
}
Add(MT_Add,11744218,371,217)
{
InputMT=1
link(onAdd,461807:doMT_ReplaceCol,[])
link(Data,9284384:Index,[(377,205)(356,205)(356,261)(335,261)])
}
Вот только проще уже некуда