Sergoo писал(а):
прошу обсудить работу данной программы целиком, и/или по частям.Нет слов...
Особенно порадовало
Вставка писка строк
Оказывается строки ещё и пищать будут. 
а таблицы, в зависимости от данных, будут просвечиваться одна через другую...
Сразу стало понятно, почему потребовалась сортировка 50 000 тысяч значений в ComboBox.
------------ Дoбавленo в 10.14:
vir1a.toonel.net, Привет! Чё работаешь из подполья ?
Когда есть Count и в FileSearch и в ListBox, то ставить счетчик как-то ...
Add(MainForm,12710158,203,91)
{
Width=724
Height=329
link(onCreate,9234054:doBrowse,[])
}
Add(ListBox,1214043,378,105)
{
Left=10
Top=10
Width=700
Height=245
}
Add(VBJScript,9962549,392,224)
{
WorkPoints=#6:doWork|
DataPoints=#5:inArr|7:Reverse|
Language=1
Script=#28:function doWork(Data,Index){|21: var strArr, arrTemp;|20: strArr = sys.inArr;|23: arrTemp = new Array();|5: |35: for (i=0; i < strArr.Count; i++) {|29: arrTemp.push(strArr.get(i));|2: }|16: arrTemp.sort();|23: if (sys.Reverse == 1){|19: arrTemp.reverse();|2: }|35: for (i=0; i < strArr.Count; i++) {|28: strArr.set (i, arrTemp[i]);|2: }|1:}|
UseName=0
link(inArr,1214043:Array,[])
link(Reverse,438528:Checked,[(405,208)(447,208)])
}
Add(Button,10846661,322,224)
{
Left=10
Top=265
Caption="Sort"
link(onClick,9962549:doWork,[])
}
Add(Browse,9234054,259,105)
{
link(onBrowse,6363434:doSearch,[])
}
Add(FileSearch,6363434,308,105)
{
FullName=1
link(onSearch,1214043:doAdd,[])
link(onEndSearch,15853758:doData,[(359,118)(359,167)])
}
Add(CheckBox,438528,441,161)
{
Left=85
Top=265
Width=80
Caption="Reverse"
}
Add(DoData,15853758,385,161)
{
link(onEventData,12710158:doCaption,[(429,167)(429,71)(191,71)(191,97)])
link(Data,1214043:Count,[])
}
Поиск
Друзья
Администрация