code_35618.txt
А включив точку doSort, получить список в StringTable в алфавитном порядке:
Add(MainForm,5356133,203,126)
{
Width=319
}
Add(CheckBox,13802234,203,175)
{
Left=10
Top=45
Width=70
Color=65535
TabOrder=-1
Caption="Кокс"
link(onCheck,12532522:doEvent1,[])
}
Add(CheckBox,2805966,210,182)
{
Left=10
Top=75
Width=70
Color=65535
TabOrder=-1
Caption="Стр-ка"
link(onCheck,12532522:doEvent2,[])
}
Add(CheckBox,11587112,217,189)
{
Left=10
Top=110
Width=70
Color=65535
TabOrder=-1
Caption="FeSi"
link(onCheck,12532522:doEvent3,[])
}
Add(CheckBox,13255151,224,196)
{
Left=10
Top=145
Width=70
Color=65535
TabOrder=-1
Caption="FeMn"
link(onCheck,12532522:doEvent4,[])
}
Add(StringTable,5839332,448,252)
{
Left=85
Top=15
Width=175
Height=210
Columns=#8:Материал|3:Вес|
Point(doSort)
}
Add(Label,13483547,266,126)
{
Left=10
Top=17
Width=74
Height=17
Caption="Материал"
}
Add(Hub,12532522,287,175)
{
InCount=4
link(onEvent1,5839332:doClear,[(435,181)(435,265)])
link(onEvent2,14089666:doString,[(312,188)(312,238)(191,238)(191,258)])
}
Add(If_else,7859907,315,252)
{
Op2=Integer(1)
link(onTrue,5328255:doRead,[])
}
Add(FormatStr,14089666,203,252)
{
DataCount=4
Mask="%1;%2;%3;%4"
link(onFString,13912246:doEnum,[])
link(Str1,13802234:Checked,[])
link(Str2,2805966:Checked,[])
link(Str3,11587112:Checked,[])
link(Str4,13255151:Checked,[])
}
Add(StrList,2897385,371,189)
{
Strings=#0:|8:Кокс;111|10:Стр-ка;222|8:FeSi;214|8:FeMn;345|
}
Add(ArrayRW,5328255,385,252)
{
link(onRead,5839332:doAdd,[])
link(Array,2897385:Array,[])
link(Index,13912246:NumSubStr,[(398,240)(365,240)(365,301)(265,301)])
}
Add(Str_Enum,13912246,259,252)
{
link(onEnum,7859907:doCompare,[])
link(onEndEnum,5839332:doSort,[(306,265)(306,293)])
}