HiAsm
HiAsm
Вверх ↑
ФорумыДелаем компонентыСортировка чисел в ComboBox ? ← Ctrl123456Ctrl →
Этот топик читают: Гость
Ответов: 8921
Рейтинг: 823
#31: 2009-09-16 14:32:45 ЛС | профиль | цитата
Tad, ну не ручками строки переставлять, наверное, "ресурсоёмкая"
карма: 19

0
Ответов: 80
Рейтинг: -5
#32: 2009-09-17 02:14:33 ЛС | профиль | цитата
Ребята, по итогам конструктивного, , диалога общества выкладываю результат:

code_14962.txt

Программа выложенная в начале топика повела себя странно - не компилируется отдельно от основной части схемы странно?
По идее должна была работать? Ладно, не будем о грустном.
Теперь бодрее, прошу обсудить работу данной программы целиком, и/или по частям.
Ставлю себе задачу: приняв на вход совокупность строк показывающее размеры файлов, отсортировать их как число, убрать повторы и сделать возможность менять количество символов в строке для дальнейшего поиска в файловой системе каково то определенного файла, или группы файлов, имеющие такие же или приблизительные размеры.

Недостатки данной программы:
- странно ведет себя таймер - нет сигнала после останова тем самым не запускается следующий этап.
- остальное работает в принципе неплохо но при изменении длинны строки чразмеры идут опять в перемежку.
- конечно было бы неплохо укорачивать строки с конца, а не сначала.
Нет ничего более постоянного, чем временное! А хорошее, все же -- враг лучшего !


------------ Дoбавленo в 03.23:
Блин, вот еще полная схема дополнения до промежуточных таблиц( добавлена вторая):
Make(delphi)
ver(4.03 build 180)
Add(MainForm,16510308,56,84)
{
 Width=399
 Height=478
 link(onCreate,9602468:doEvent1,[])
}
Add(Random,8873230,182,105)
{
 Max=15000
 link(onRandom,11043801:doWork1,[(268,111)(268,97)])
}
Add(ChildGroupBox,11043801,322,91)
{
 @Color=0
}
BEGIN_SDK
  Add(EditMulti,4395781,21,21)
  {
   @Color=0
   EventCount=3
   WorkCount=4
   DataCount=2
   Width=545
   Height=95
   HOffset=200
   link(doWork1,4006446:In,[(31,27)(31,27)])
   link(doWork2,4315887:In,[(71,34)(71,34)])
   link(doWork3,15894555:In,[(31,41)(31,41)])
   link(doWork4,2992425:In,[(67,48)(67,48)])
  }
  Add(LineBreak,2192890,420,21)
  {
   @Color=0
   Caption="Размер"
   link(Out,4395781:onEvent1,[(519,27)(519,27)])
   Primary=[16167966,504,364]
  }
  Add(LineBreak,16031352,221,44)
  {
   Caption="Текст заголовка"
   Type=1
   link(Data,4395781:Data1,[])
   Primary=[11114155,773,271]
  }
  Add(GroupBox,10431958,1070,364)
  {
   @Color=5614080
   Top=160
   Width=380
   Height=274
   Color=15780518
   Font=[MS Sans Serif,8,1,255,1]
   Name="РазмерB"
   Caption="Size"
   Point(doCaption)
  }
  Add(LineBreak,9311171,236,217)
  {
   Caption="Старт"
   link(Out,6152098:doEvent1,[])
   Primary=[12891857,268,140]
  }
  Add(LineBreak,10683483,671,294)
  {
   Caption="ОперСброс1"
   link(Out,5558249:doEvent1,[])
   Primary=[7332845,-176,51]
  }
  Add(Label,13705641,443,329)
  {
   Left=115
   Top=2
   Width=11
   Height=17
   Color=15780518
   Font=[MS Sans Serif,8,1,255,1]
   Caption="+"
   Point(doBringToFront)
  }
  Add(UpDown,13081669,366,329)
  {
   Left=101
   Top=2
   Width=10
   Height=15
   Color=15780518
   Hint="Фильтр - Разделение по СИМВОЛАМ"
   Max=25
   Point(doBringToFront)
   link(onPosition,3823243:doEvent1,[])
  }
  Add(MultiElement,9860082,443,371)
  {
   link(onEvent1,807113:In,[])
  }
  BEGIN_SDK
    Add(EditMulti,13394823,21,21)
    {
     EventCount=1
     WorkCount=2
     Width=433
     Height=144
     link(doWork1,12025655:In,[])
     link(doWork2,10644509:In,[])
    }
    Add(Delete,13145066,173,98)
    {
     Count=256
     link(onDelete,10763736:doTrim,[])
     link(Position,11500044:Result,[])
    }
    Add(Hub,12779076,299,98)
    {
     InCount=2
     OutCount=1
     link(onEvent1,446756:doData,[])
    }
    Add(LineBreak,10938344,59,56)
    {
     @Hint=#37:Счетчик количества выбранных символав|
     Caption="Счтчик"
     link(Out,2058245:doValue,[])
     Primary=[12025655,-24,-35]
    }
    Add(LineBreak,4661474,17,98)
    {
     Caption="Data-строка"
     link(Out,7974893:doWork1,[])
     Primary=[10644509,74,-70]
    }
    Add(Math,11500044,180,56)
    {
     Op2=1
     ResultType=0
    }
    Add(MultiElement,7974893,124,98)
    {
     link(onEvent1,13145066:doDelete,[])
     link(onEvent2,12779076:doEvent2,[])
     link(Data1,2058245:Value,[])
    }
    BEGIN_SDK
      Add(EditMulti,1813348,21,21)
      {
       EventCount=2
       WorkCount=1
       DataCount=1
       Width=181
       Height=354
       link(doWork1,7225789:doEvent,[(28,27)(28,76)])
      }
      Add(IndexToChanel,7225789,35,70)
      {
       Count=25
       Point(Index)
       link(onEvent1,1813348:onEvent2,[(135,76)(170,62)(170,34)])
       link(onEvent2,537767:doEvent1,[])
       link(onEvent3,537767:doEvent2,[])
       link(onEvent4,537767:doEvent3,[])
       link(onEvent5,537767:doEvent4,[])
       link(onEvent6,537767:doEvent5,[])
       link(onEvent7,537767:doEvent6,[])
       link(onEvent8,537767:doEvent7,[])
       link(onEvent9,537767:doEvent8,[])
       link(onEvent10,537767:doEvent9,[])
       link(onEvent11,537767:doEvent10,[])
       link(onEvent12,537767:doEvent11,[])
       link(onEvent13,537767:doEvent12,[])
       link(onEvent14,537767:doEvent13,[])
       link(onEvent15,537767:doEvent14,[])
       link(onEvent16,537767:doEvent15,[])
       link(onEvent17,537767:doEvent16,[])
       link(onEvent18,537767:doEvent17,[])
       link(onEvent19,537767:doEvent18,[])
       link(onEvent20,537767:doEvent19,[])
       link(onEvent21,537767:doEvent20,[])
       link(onEvent22,537767:doEvent21,[])
       link(onEvent23,537767:doEvent22,[])
       link(onEvent24,537767:doEvent23,[])
       link(onEvent25,537767:doEvent24,[])
       link(Index,1813348:Data1,[(41,46)(27,46)])
      }
      Add(Hub,537767,105,77)
      {
       InCount=24
       OutCount=1
       link(onEvent1,1813348:onEvent1,[(177,83)(177,27)])
      }
    END_SDK
    Add(LineBreak,6940421,322,21)
    {
     Caption="Результат"
     link(Out,13394823:onEvent1,[])
     Primary=[10591343,52,77]
    }
    Add(Trim,10763736,215,98)
    {
     Char=","
     link(onTrim,6852375:doTrim,[])
    }
    Add(Trim,6852375,257,98)
    {
     Char="!"
     link(onTrim,12779076:doEvent1,[])
    }
    Add(Memory,2058245,124,56)
    {
     link(onData,11500044:doOperation,[])
    }
    Add(ChangeMon,446756,329,98)
    {
     @Hint=#19:Фильтр одинаковости|
     link(onData,10591343:In,[])
     AddHint(-72,38,129,13,@Hint)
    }
  END_SDK
  Add(Hub,3823243,406,329)
  {
   OutCount=5
   link(onEvent1,13705641:doText,[])
   link(onEvent2,8586672:In,[(475,342)(475,344)])
   link(onEvent3,7332845:In,[(458,349)(458,351)])
   link(onEvent4,9860082:doWork1,[(432,356)(432,377)])
   link(onEvent5,12891857:In,[])
  }
  Add(LineBreak,12528398,241,378)
  {
   Caption="Data-строка"
   link(Out,9860082:doWork2,[])
   Primary=[16374019,228,-161]
  }
  Add(LineBreak,7473042,244,231)
  {
   Caption="End "
   link(Out,16107846:doSortDigit,[])
   Primary=[2992425,-131,-189]
  }
  Add(LineBreak,413638,30,532)
  {
   Caption="Результат"
   link(Out,11803614:doData,[])
   Primary=[807113,461,-161]
  }
  Add(InfoTip,431922,238,294)
  {
   Info=#25:Филтр строк с управлением|
   Width=330
   Height=116
  }
  Add(DoData,9073310,315,329)
  {
   Data=Integer(0)
   link(onEventData,13081669:doPosition,[])
  }
  Add(Hub,7817784,315,175)
  {
   @Color=65535
   OutCount=3
   link(onEvent1,10925508:doClear,[])
   link(onEvent2,2069545:In,[])
   link(onEvent3,13549983:In,[])
  }
  Add(LineBreak,3287296,238,329)
  {
   Caption="Активатор"
   link(Out,9073310:doData,[])
   Primary=[13549983,336,-140]
  }
  Add(LineBreak,15231015,237,175)
  {
   @Hint=#43:Задает начальную установку частей программы|
   @Color=0
   Caption="Активатор"
   link(Out,7817784:doEvent1,[])
   Primary=[4315887,-117,-147]
  }
  Add(LineBreak,6600956,25,196)
  {
   @Color=0
   Caption="Load/Save"
   link(Out,6896592:doWork1,[])
   Primary=[15894555,17,-161]
  }
  Add(LineBreak,15861386,228,63)
  {
   Caption="ИмяФайла"
   Type=1
   link(Data,4395781:Data2,[])
   Primary=[6388418,-109,100]
  }
  Add(MST_Load,5315194,182,196)
  {
   MSTControl="Size-pro"
   link(FileName,6896592:Var1,[(188,184)(156,184)(156,240)(125,240)])
  }
  Add(MST_Save,11920761,182,238)
  {
   MSTControl="Size-pro"
   link(FileName,6896592:Var2,[(188,233)(132,233)])
  }
  Add(MST_SortInCol,16107846,308,224)
  {
   MSTControl="Size-pro"
   Point(doSortDigit)
   link(onChange,6152098:doEvent2,[])
  }
  Add(MultiElement,6896592,119,196)
  {
   @Color=255
   link(onEvent1,5315194:doLoad,[])
   link(onEvent2,11920761:doSave,[(167,209)(167,244)])
   link(Data1,6388418:Var,[])
  }
  BEGIN_SDK
    Add(EditMulti,15628907,21,21)
    {
     @Color=0
     EventCount=2
     WorkCount=1
     DataCount=1
     VarCount=2
     Width=328
     link(doWork1,8548359:doEvent,[(35,27)(35,104)])
     link(Var1,15591745:Result,[(27,175)(216,175)])
     link(Var2,503825:Result,[(34,200)(216,200)])
    }
    Add(StrCat,15591745,210,98)
    {
     @Color=5592575
     Str2="_B.txt"
     link(onStrCat,15628907:onEvent1,[(296,104)(296,27)])
    }
    Add(StrCat,503825,210,147)
    {
     @Color=5592575
     Str2="_B.txt"
     link(onStrCat,15628907:onEvent2,[(296,153)(296,34)])
    }
    Add(GetDataEx,8701971,42,39)
    {
     Angle=3
     link(Data,15628907:Data1,[(27,44)])
    }
    Add(StrCat,2986072,147,147)
    {
     @Color=5570815
     link(onStrCat,503825:doStrCat,[])
     link(Str2,8701971:Var3,[(160,44)])
    }
    Add(StrCat,8338865,133,98)
    {
     @Color=5570815
     link(onStrCat,15591745:doStrCat,[])
     link(Str2,8701971:Var2,[(146,73)(48,73)])
    }
    Add(MT_IndexToChanel,8548359,49,98)
    {
     link(onEvent1,8338865:doStrCat,[])
     link(onEvent2,2986072:doStrCat,[(114,111)(114,153)])
    }
  END_SDK
  Add(LineBreak,717230,36,364)
  {
   @Hint=#38:Найденое и сконструированное имя файла|
   @Color=0
   Caption="TM_text"
   link(Out,4848144:doData,[])
   Primary=[4006446,6,-343]
  }
  Add(MST_RowAction,1633812,189,364)
  {
   MSTControl="Size-pro"
  }
  Add(ArrayEnum,686593,385,217)
  {
   link(onItem,446756:doData,[])
   link(onEndEnum,2920702:In,[(454,230)(454,237)])
   link(Array,4701230:Strings,[])
  }
  Add(MST_ArrayRows,4701230,385,173)
  {
   MSTControl="Size-pro"
  }
  Add(MTStrTbl,5728477,427,175)
  {
   Top=80
   Width=375
   Height=185
   Name="Size-pro"
   Columns=#1:1|
  }
  Add(ChangeMon,4848144,147,364)
  {
   @Hint=#19:Фильтр одинаковости|
   link(onData,1633812:doRowAction,[])
   AddHint(-113,44,129,13,@Hint)
  }
  Add(ChangeMon,446756,427,217)
  {
   @Hint=#19:Фильтр одинаковости|
   link(onData,16374019:In,[])
   AddHint(-72,38,129,13,@Hint)
  }
  Add(Hub,6152098,357,217)
  {
   InCount=2
   OutCount=1
   link(onEvent1,686593:doEnum,[])
  }
  Add(InfoTip,11801515,21,126)
  {
   Info=#9:Load/Save|
   Width=211
   Height=158
  }
  Add(InfoTip,9176671,21,294)
  {
   Info=#19:Вставка писка строк|24:первый уровень филтраций|
   Width=211
   Height=158
  }
  Add(InfoTip,11304052,238,126)
  {
   Info=#45:Начальная сортировка 2 и 3 уровень фильтраций|
   Width=330
   Height=158
  }
  Add(MST_Clear,10925508,343,175)
  {
   MSTControl="Size-pro"
  }
  Add(ComboBox,9539729,819,287)
  {
   Left=2
   Top=15
   Width=136
   Height=21
   Point(onMouseMove)
   Point(Count)
   link(onChange,6957260:doEvent2,[(867,293)(867,286)])
   link(onClick,15274760:doData,[(867,300)(867,391)])
   link(onMouseMove,4395781:onEvent3,[(863,307)(863,174)(575,174)(575,41)])
  }
  Add(DoData,15274760,882,385)
  {
   @Hint=#43:получение строковой составляющей для поиска|
   @Color=5570815
   link(onEventData,16167966:In,[])
   link(Data,9539729:String,[(888,359)(832,359)])
   AddHint(-56,41,136,26,@Hint)
  }
  Add(Hub,5558249,760,294)
  {
   @Color=5570815
   link(onEvent1,9539729:doClear,[])
   link(onEvent2,6957260:doEvent1,[(828,307)(828,279)])
  }
  Add(Hub,6957260,882,273)
  {
   InCount=2
   OutCount=1
   link(onEvent1,6000558:doStrCat,[(945,279)(945,370)])
  }
  Add(StrCat,6000558,994,364)
  {
   @Hint=#35:Имя состовляющей + количества строк|
   @Color=5570815
   link(onStrCat,10431958:doCaption,[])
   link(Str1,11114155:Var,[])
   link(Str2,9539729:Count,[(1007,348)(839,348)])
   AddHint(-70,99,189,26,@Hint)
  }
  Add(LineBreak,2041488,675,280)
  {
   Caption="Data-строка"
   link(Out,9539729:doAdd,[(792,286)(792,293)])
   Primary=[14591234,-206,273]
  }
  Add(LineBreak,16714832,244,567)
  {
   Caption="End "
   link(Out,11744541:doSortDigit,[])
   Primary=[2920702,247,-336]
  }
  Add(Hub,1003012,315,511)
  {
   @Color=65535
   InCount=2
   link(onEvent1,8147895:doClear,[])
  }
  Add(LineBreak,15468271,237,511)
  {
   @Hint=#43:Задает начальную установку частей программы|
   @Color=0
   Caption="Активатор"
   link(Out,1003012:doEvent1,[])
   Primary=[2069545,261,-329]
  }
  Add(MST_SortInCol,11744541,308,560)
  {
   MSTControl="Size-pro-pro"
   Point(doSortDigit)
   link(onChange,1696383:doEvent2,[])
  }
  Add(MST_RowAction,16517851,189,532)
  {
   MSTControl="Size-pro-pro"
  }
  Add(ArrayEnum,5697670,385,553)
  {
   link(onItem,3033158:doData,[])
   link(Array,13065808:Strings,[])
  }
  Add(MST_ArrayRows,13065808,385,509)
  {
   MSTControl="Size-pro-pro"
  }
  Add(MTStrTbl,7015044,427,511)
  {
   Top=80
   Width=375
   Height=185
   Name="Size-pro-pro"
   Columns=#1:1|
  }
  Add(ChangeMon,11803614,147,532)
  {
   @Hint=#19:Фильтр одинаковости|
   link(onData,16517851:doRowAction,[])
   AddHint(-113,44,129,13,@Hint)
  }
  Add(ChangeMon,3033158,427,553)
  {
   @Hint=#19:Фильтр одинаковости|
   link(onData,14591234:In,[])
   AddHint(-72,38,129,13,@Hint)
  }
  Add(Hub,1696383,357,553)
  {
   InCount=2
   OutCount=1
   link(onEvent1,5697670:doEnum,[])
  }
  Add(InfoTip,222301,21,462)
  {
   Info=#19:Вставка писка строк|24:первый уровень филтраций|
   Width=211
   Height=158
  }
  Add(InfoTip,7291502,238,462)
  {
   Info=#45:Начальная сортировка 2 и 3 уровень фильтраций|
   Width=330
   Height=158
  }
  Add(MST_Clear,8147895,343,511)
  {
   MSTControl="Size-pro-pro"
  }
  Add(LineBreak,16670516,223,525)
  {
   Caption="ОперСброс1"
   link(Out,1003012:doEvent2,[(308,531)(308,524)])
   Primary=[8586672,349,-187]
  }
  Add(Button,2952699,336,62)
  {
   Left=88
   Top=4
   Width=10
   Height=10
   Hint="Диалог управлением выбора категорий по поиску в колонке Size-Размер"
   HintManager="прова"
   link(onClick,16127904:In,[(355,68)(355,69)])
  }
  Add(LineBreak,3551338,308,28)
  {
   Caption="УсловПоискаSize"
   link(Out,4395781:onEvent2,[(489,34)(489,34)])
   Primary=[16127904,84,35]
  }
END_SDK
Add(Hub,9602468,98,98)
{
 link(onEvent1,11043801:doWork2,[])
 link(onEvent2,1098126:doFor,[])
}
Add(For,1098126,126,105)
{
 End=15000
 link(onEvent,8873230:doRandom,[])
 link(onStop,10923539:doTimer,[])
}
Add(Timer,10923539,238,112)
{
 Enable=1
 AutoStop=1
 link(onTimer,11043801:doWork4,[])
}


Обсудите мои ошибочные действия, благодаря данной схеме скорость считывания данных уменьшилась в 1.5, а то и 3.5 раза - жуть как 'мало'
И ресурсоемко и времяемко! Данных, у меня, пока - 10229 записей. А будет больше

карма: 0

0
файлы: 1code_14962.txt [10.5KB] [589]
Гость
Ответов: 17029
Рейтинг: 0
#33: 2009-09-17 08:24:27 правка | ЛС | профиль | цитата


Редактировалось 8 раз(а), последний 2021-06-21 04:27:10
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#34: 2009-09-17 09:51:30 ЛС | профиль | цитата
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,[])
}
И RunTime Error не видел ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 80
Рейтинг: -5
#35: 2009-09-17 11:22:38 ЛС | профиль | цитата
Первое, таблицы видны не будут, так как находятся за пределами рамки окна, будет видна только верхняя часть с готовым списком, кнопками и надписями.
Второе, предложите свой красивый вариант решения данной задачи в пределах заданного. Программа должна работать быстро и иметь как можно малые объемы как по коду так и поресурсоемкости.

Это задача для мастистых программеров, хорошо знающих hiasm, коих сдесь немного.


Нет ничего более постоянного, чем временное! А хорошее, все же -- враг лучшего !
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#36: 2009-09-17 11:36:51 правка | ЛС | профиль | цитата


Редактировалось 8 раз(а), последний 2021-06-21 04:27:10
карма: 0

0
Ответов: 80
Рейтинг: -5
#37: 2009-09-17 11:48:02 ЛС | профиль | цитата
Ошибка - RunTime Error!!!!!
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#38: 2009-09-17 12:29:57 ЛС | профиль | цитата
Sergoo, что ты хочешь в итоге получить от программы ?
code_14966.txt
------------ Дoбавленo в 12.31:
Вот 60 000 файлов обрабатывает за 1.67 секунды
------------ Дoбавленo в 12.33:
vir1a.toonel.net писал(а):
Привет!, нет, из дома
А чё, дома ника нет
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_14966.txt [2.3KB] [548]
Ответов: 80
Рейтинг: -5
#39: 2009-09-17 16:09:58 ЛС | профиль | цитата
Проверил, работает, попробую привести ее в соответствие с требованием отдельного модуля по заданным параметрам результата.

Спасибо. Как сделаю то выложу на обозрение.

.......

Готово, причесал, сделал в том-же ключе-тесте, прошу смотреть результат:

Make(delphi)
ver(4.03 build 180)
Add(MainForm,2953706,49,105)
{
 Width=369
 Height=244
 Font=[Arial,8,1,0,204]
 Caption=""
 BorderStyle=1
 Position=1
 link(onCreate,10720643:doWork2,[(257,125)(257,166)])
}
Add(Browse,1770936,119,21)
{
 link(onBrowse,11236746:doEvent1,[])
 link(onCancel,2953706:doClose,[(156,34)(156,80)(31,80)(31,132)])
}
Add(FileSearch,14976559,210,105)
{
 link(onSearch,14715294:doData,[(268,111)(268,160)])
 link(onEndSearch,10720643:doWork4,[(354,118)(354,180)])
 link(Dir,7477079:Text,[])
}
Add(Edit,7477079,217,21)
{
 Left=70
 Top=10
 Width=270
 ParentFont=0
 Text=""
}
Add(Button,9537344,63,21)
{
 Left=10
 Top=10
 Font=[Arial,8,1,0,204]
 ParentFont=0
 Caption="Browse"
 link(onClick,1770936:doBrowse,[])
}
Add(Button,9652609,91,105)
{
 Left=10
 Top=40
 Font=[Arial,8,1,0,204]
 ParentFont=0
 Caption="Start"
 link(onClick,14976559:doSearch,[(182,111)(182,111)])
}
Add(ChildGroupBox,10720643,434,153)
{
 @Color=0
}
BEGIN_SDK
  Add(EditMulti,4395781,21,21)
  {
   @Color=0
   EventCount=3
   WorkCount=4
   DataCount=2
   Width=545
   Height=95
   HOffset=200
   link(doWork1,4006446:In,[])
   link(doWork2,4315887:In,[])
   link(doWork3,15894555:In,[])
   link(doWork4,8274232:In,[(29,48)(29,55)])
  }
  Add(LineBreak,2800229,420,21)
  {
   @Color=0
   Caption="Размер"
   link(Out,4395781:onEvent1,[(519,27)(519,27)])
   Primary=[16167966,315,231]
  }
  Add(LineBreak,10755968,221,44)
  {
   Caption="Текст заголовка"
   Type=1
   link(Data,4395781:Data1,[])
   Primary=[11114155,584,138]
  }
  Add(GroupBox,10431958,881,231)
  {
   @Color=5614080
   Top=160
   Width=140
   Height=39
   Color=15780518
   Font=[MS Sans Serif,8,1,255,1]
   Name="РазмерB"
   Caption="Size"
   Point(doCaption)
  }
  Add(LineBreak,8838069,23,196)
  {
   @Hint=#43:Задает начальную установку частей программы|
   @Color=0
   Caption="Активатор"
   link(Out,12824544:doWork2,[])
   Primary=[4315887,97,-168]
  }
  Add(LineBreak,14780530,95,203)
  {
   @Color=0
   Caption="Load/Save"
   link(Out,12824544:doWork3,[])
   Primary=[15894555,-53,-168]
  }
  Add(LineBreak,15177798,228,63)
  {
   Caption="ИмяФайла"
   Type=1
   link(Data,4395781:Data2,[])
   Primary=[6388418,-46,98]
  }
  Add(LineBreak,15485675,110,189)
  {
   @Hint=#38:Найденое и сконструированное имя файла|
   @Color=0
   Caption="TM_text"
   link(Out,12824544:doWork1,[])
   Primary=[4006446,-68,-168]
  }
  Add(ComboBox,9539729,630,154)
  {
   Left=2
   Top=15
   Width=136
   Height=21
   Point(onMouseMove)
   Point(Count)
   link(onChange,6957260:doEvent2,[(678,160)(678,153)])
   link(onClick,15274760:doData,[(678,167)(678,258)])
   link(onMouseMove,4395781:onEvent3,[(674,174)(674,108)(554,108)(554,41)])
  }
  Add(DoData,15274760,693,252)
  {
   @Hint=#43:получение строковой составляющей для поиска|
   @Color=5570815
   link(onEventData,16167966:In,[])
   link(Data,9539729:String,[(699,226)(643,226)])
   AddHint(-56,41,136,26,@Hint)
  }
  Add(Hub,5558249,571,161)
  {
   @Color=5570815
   link(onEvent1,9539729:doClear,[])
   link(onEvent2,6957260:doEvent1,[(615,174)(615,146)])
  }
  Add(Hub,6957260,693,140)
  {
   InCount=2
   OutCount=1
   link(onEvent1,6000558:doStrCat,[(756,146)(756,237)])
  }
  Add(StrCat,6000558,805,231)
  {
   @Hint=#35:Имя состовляющей + количества строк|
   @Color=5570815
   link(onStrCat,10431958:doCaption,[])
   link(Str1,11114155:Var,[])
   link(Str2,9539729:Count,[(818,215)(650,215)])
   AddHint(-70,99,189,26,@Hint)
  }
  Add(LineBreak,12872304,486,133)
  {
   Caption="Data-строка"
   link(Out,9539729:doAdd,[(595,139)(595,160)])
   Primary=[14591234,-241,287]
  }
  Add(Button,2952699,336,62)
  {
   Left=88
   Top=4
   Width=10
   Height=10
   Hint="Диалог управлением выбора категорий по поиску в колонке Size-Размер"
   HintManager="прова"
   link(onClick,16127904:In,[(355,68)(355,69)])
  }
  Add(LineBreak,14836509,308,28)
  {
   Caption="УсловПоискаSize"
   link(Out,4395781:onEvent2,[(489,34)(489,34)])
   Primary=[16127904,84,35]
  }
  Add(LineBreak,2586809,44,211)
  {
   Caption="End  A"
   link(Out,12824544:doWork4,[(128,217)(128,216)])
   Primary=[8274232,6,-162]
  }
  Add(LineBreak,734608,120,217)
  {
   Caption="Старт"
   link(Out,12824544:doWork5,[])
   Primary=[10374710,195,112]
  }
  Add(Label,3991924,247,308)
  {
   Left=115
   Top=2
   Width=11
   Height=17
   Color=15780518
   Font=[MS Sans Serif,8,1,255,1]
   Caption="+"
   Point(doBringToFront)
  }
  Add(UpDown,8206508,170,308)
  {
   Left=101
   Top=2
   Width=10
   Height=15
   Color=15780518
   Hint="Фильтр - Разделение по СИМВОЛАМ"
   Max=25
   Point(doBringToFront)
   link(onPosition,254027:doEvent1,[])
  }
  Add(MultiElement,10691306,247,350)
  {
   link(onEvent1,6274890:In,[])
  }
  BEGIN_SDK
    Add(EditMulti,13394823,21,21)
    {
     EventCount=1
     WorkCount=2
     Width=433
     Height=144
     link(doWork1,12025655:In,[])
     link(doWork2,10644509:In,[])
    }
    Add(Delete,13145066,173,98)
    {
     Count=256
     link(onDelete,10763736:doTrim,[])
     link(Position,11500044:Result,[])
    }
    Add(Hub,12779076,299,98)
    {
     InCount=2
     OutCount=1
     link(onEvent1,446756:doData,[])
    }
    Add(LineBreak,905196,59,56)
    {
     @Hint=#37:Счетчик количества выбранных символав|
     Caption="Счтчик"
     link(Out,2058245:doValue,[])
     Primary=[12025655,-24,-35]
    }
    Add(LineBreak,489204,17,98)
    {
     Caption="Data-строка"
     link(Out,1232898:doWork1,[])
     Primary=[10644509,74,-70]
    }
    Add(Math,11500044,180,56)
    {
     Op2=1
     ResultType=0
    }
    Add(MultiElement,1232898,124,98)
    {
     link(onEvent1,13145066:doDelete,[])
     link(onEvent2,12779076:doEvent2,[])
     link(Data1,2058245:Value,[])
    }
    BEGIN_SDK
      Add(EditMulti,1813348,21,21)
      {
       EventCount=2
       WorkCount=1
       DataCount=1
       Width=181
       Height=354
       link(doWork1,7225789:doEvent,[(28,27)(28,76)])
      }
      Add(IndexToChanel,7225789,35,70)
      {
       Count=25
       Point(Index)
       link(onEvent1,1813348:onEvent2,[(135,76)(170,62)(170,34)])
       link(onEvent2,537767:doEvent1,[])
       link(onEvent3,537767:doEvent2,[])
       link(onEvent4,537767:doEvent3,[])
       link(onEvent5,537767:doEvent4,[])
       link(onEvent6,537767:doEvent5,[])
       link(onEvent7,537767:doEvent6,[])
       link(onEvent8,537767:doEvent7,[])
       link(onEvent9,537767:doEvent8,[])
       link(onEvent10,537767:doEvent9,[])
       link(onEvent11,537767:doEvent10,[])
       link(onEvent12,537767:doEvent11,[])
       link(onEvent13,537767:doEvent12,[])
       link(onEvent14,537767:doEvent13,[])
       link(onEvent15,537767:doEvent14,[])
       link(onEvent16,537767:doEvent15,[])
       link(onEvent17,537767:doEvent16,[])
       link(onEvent18,537767:doEvent17,[])
       link(onEvent19,537767:doEvent18,[])
       link(onEvent20,537767:doEvent19,[])
       link(onEvent21,537767:doEvent20,[])
       link(onEvent22,537767:doEvent21,[])
       link(onEvent23,537767:doEvent22,[])
       link(onEvent24,537767:doEvent23,[])
       link(onEvent25,537767:doEvent24,[])
       link(Index,1813348:Data1,[(41,46)(27,46)])
      }
      Add(Hub,537767,105,77)
      {
       InCount=24
       OutCount=1
       link(onEvent1,1813348:onEvent1,[(177,83)(177,27)])
      }
    END_SDK
    Add(LineBreak,8516506,322,21)
    {
     Caption="Результат"
     link(Out,13394823:onEvent1,[])
     Primary=[10591343,52,77]
    }
    Add(Trim,10763736,215,98)
    {
     Char=","
     link(onTrim,6852375:doTrim,[])
    }
    Add(Trim,6852375,257,98)
    {
     Char="!"
     link(onTrim,12779076:doEvent1,[])
    }
    Add(Memory,2058245,124,56)
    {
     link(onData,11500044:doOperation,[])
    }
    Add(ChangeMon,446756,329,98)
    {
     @Hint=#19:Фильтр одинаковости|
     link(onData,10591343:In,[])
     AddHint(-72,38,129,13,@Hint)
    }
  END_SDK
  Add(Hub,254027,210,308)
  {
   OutCount=4
   link(onEvent1,3991924:doText,[])
   link(onEvent2,4569372:In,[(257,321)(257,320)])
   link(onEvent3,10691306:doWork1,[(236,328)(236,356)])
   link(onEvent4,10374710:In,[])
  }
  Add(LineBreak,8179486,52,357)
  {
   Caption="Data-строка"
   link(Out,10691306:doWork2,[])
   Primary=[15785146,259,-139]
  }
  Add(LineBreak,3011826,112,420)
  {
   Caption="Результат"
   link(Out,13868492:doWork1,[])
   Primary=[6274890,183,-70]
  }
  Add(InfoTip,16442825,42,273)
  {
   Info=#25:Филтр строк с управлением|
   Width=330
   Height=116
  }
  Add(DoData,8041495,119,308)
  {
   Data=Integer(0)
   link(onEventData,8206508:doPosition,[])
  }
  Add(LineBreak,9755084,36,308)
  {
   Caption="Активатор"
   link(Out,8041495:doData,[])
   Primary=[1947522,196,-119]
  }
  Add(LineBreak,5781954,44,426)
  {
   Caption="Активатор"
   link(Out,13868492:doWork2,[(150,432)(150,433)])
   Primary=[15037878,267,-230]
  }
  Add(LineBreak,13668824,494,161)
  {
   Caption="Активатор"
   link(Out,5558249:doEvent1,[])
   Primary=[775804,-261,42]
  }
  Add(LineBreak,4524188,24,223)
  {
   Caption="Активатор'"
   link(Out,12824544:doWork6,[(157,229)(157,230)])
   Primary=[4569372,266,91]
  }
  Add(LineBreak,1290378,113,434)
  {
   Caption="End  B"
   link(Out,13868492:doWork3,[])
   Primary=[13514878,119,-217]
  }
  Add(MultiElement,12824544,182,189)
  {
   link(Data1,6388418:Var,[])
   link(onEvent1,1947522:In,[])
   link(onEvent2,15037878:In,[])
   link(onEvent3,775804:In,[])
   link(onEvent4,15785146:In,[(262,216)(262,224)])
   link(onEvent5,13514878:In,[])
  }
  BEGIN_SDK
    Add(EditMulti,3347419,21,21)
    {
     EventCount=5
     WorkCount=6
     DataCount=1
     Width=454
     Height=95
     HOffset=200
     link(doWork1,4006446:In,[])
     link(doWork2,4315887:In,[])
     link(doWork3,15894555:In,[])
     link(doWork4,8274232:In,[])
     link(doWork5,10374710:In,[])
     link(doWork6,4569372:In,[(68,62)(68,61)])
    }
    Add(LineBreak,16672480,237,168)
    {
     @Hint=#43:Задает начальную установку частей программы|
     @Color=0
     Caption="Активатор"
     link(Out,15449000:doEvent1,[])
     Primary=[4315887,-124,-140]
    }
    Add(LineBreak,6807636,347,189)
    {
     @Color=0
     Caption="Load/Save"
     link(Out,11165791:doWork1,[])
     Primary=[15894555,-312,-154]
    }
    Add(LineBreak,4100060,221,35)
    {
     Caption="ИмяФайла"
     Type=1
     link(Data,3347419:Data1,[])
     Primary=[6388418,213,100]
    }
    Add(LineBreak,14130903,36,161)
    {
     @Hint=#38:Найденое и сконструированное имя файла|
     @Color=0
     Caption="TM_text"
     link(Out,5269517:doEvent,[])
     Primary=[4006446,-1,-140]
    }
    Add(Convertor,7418203,206,161)
    {
     Digits=15
     SymbolFill=" "
     link(onResult,6600827:doAdd,[])
    }
    Add(StrList,6600827,508,161)
    {
     Point(doSort)
    }
    Add(ArrayEnum,5782366,522,229)
    {
     link(onItem,13207939:doData,[])
     link(onEndEnum,13514878:In,[(558,242)(558,272)])
     link(Array,6600827:Array,[])
    }
    Add(Hub,5387806,453,223)
    {
     link(onEvent1,6600827:doSort,[(487,229)(487,209)])
     link(onEvent2,9912311:doEvent1,[(468,236)(468,235)])
    }
    Add(ChangeMon,13207939,564,229)
    {
     link(onData,11656882:doTrim,[])
    }
    Add(Trim,11656882,608,229)
    {
     Char=" "
     link(onTrim,15785146:In,[])
    }
    Add(MultiElement,11165791,434,189)
    {
     @Color=255
     link(onEvent1,6600827:doLoad,[])
     link(onEvent2,6600827:doSave,[])
     link(Data1,6388418:Var,[])
    }
    BEGIN_SDK
      Add(EditMulti,15628907,21,21)
      {
       @Color=0
       EventCount=2
       WorkCount=1
       DataCount=1
       Width=328
       link(doWork1,8548359:doEvent,[(35,27)(35,104)])
      }
      Add(StrCat,15591745,210,98)
      {
       @Color=5592575
       Str2="_B.txt"
       link(onStrCat,15628907:onEvent1,[(296,104)(296,27)])
      }
      Add(StrCat,503825,210,147)
      {
       @Color=5592575
       Str2="_B.txt"
       link(onStrCat,15628907:onEvent2,[(296,153)(296,34)])
      }
      Add(GetDataEx,8701971,42,39)
      {
       Angle=3
       link(Data,15628907:Data1,[(27,44)])
      }
      Add(StrCat,2986072,147,147)
      {
       @Color=5570815
       link(onStrCat,503825:doStrCat,[])
       link(Str2,8701971:Var3,[(160,44)])
      }
      Add(StrCat,8338865,133,98)
      {
       @Color=5570815
       link(onStrCat,15591745:doStrCat,[])
       link(Str2,8701971:Var2,[(146,73)(48,73)])
      }
      Add(MT_IndexToChanel,8548359,49,98)
      {
       link(onEvent1,8338865:doStrCat,[])
       link(onEvent2,2986072:doStrCat,[(114,111)(114,153)])
      }
    END_SDK
    Add(LineBreak,4361120,379,223)
    {
     Caption="End  A"
     link(Out,5387806:doEvent1,[])
     Primary=[8274232,-266,-181]
    }
    Add(LineBreak,12072344,439,245)
    {
     Caption="Старт"
     link(Out,9912311:doEvent2,[(490,251)(490,242)])
     Primary=[10374710,-403,-196]
    }
    Add(LineBreak,3435990,295,42)
    {
     Caption="Data-строка"
     link(Out,3347419:onEvent4,[])
     Primary=[15785146,354,187]
    }
    Add(Hub,9912311,497,229)
    {
     InCount=2
     OutCount=1
     link(onEvent1,5782366:doEnum,[])
    }
    Add(LineBreak,8165122,372,21)
    {
     Caption="Активатор"
     link(Out,3347419:onEvent1,[])
     Primary=[1947522,35,258]
    }
    Add(LineBreak,427169,396,49)
    {
     Caption="End  B"
     link(Out,3347419:onEvent5,[])
     Primary=[13514878,165,217]
    }
    Add(Hub,15449000,320,168)
    {
     link(onEvent1,6600827:doClear,[])
     link(onEvent2,13834917:doEvent1,[(346,181)(346,285)])
    }
    Add(Hub,13834917,358,279)
    {
     OutCount=3
     link(onEvent1,1947522:In,[])
     link(onEvent2,10097775:doEvent1,[])
    }
    Add(LineBreak,14604177,303,28)
    {
     Caption="Активатор"
     link(Out,3347419:onEvent2,[])
     Primary=[15037878,204,258]
    }
    Add(LineBreak,10432610,375,35)
    {
     Caption="Активатор"
     link(Out,3347419:onEvent3,[])
     Primary=[775804,131,265]
    }
    Add(ChangeMon,4079093,161,161)
    {
     link(onData,7418203:doConvert,[])
    }
    Add(Hub,10097775,478,286)
    {
     InCount=2
     link(onEvent1,15037878:In,[])
     link(onEvent2,775804:In,[(502,299)(502,306)])
    }
    Add(LineBreak,1908523,401,300)
    {
     Caption="Активатор'"
     link(Out,10097775:doEvent2,[(473,306)(473,299)])
     Primary=[4569372,-286,-245]
    }
    Add(MT_MultiData,4364506,161,273)
    {
     @Hint=#29:Выдача соответствующей записи|
     @Color=16776960
     From=5
     Count=1
     AddHint(-75,-49,186,13,@Hint)
    }
    Add(Debug,5269517,126,161)
    {
     link(onEvent,4079093:doData,[])
    }
  END_SDK
  Add(MultiElement,13868492,189,420)
  {
   link(onEvent1,14591234:In,[])
  }
  BEGIN_SDK
    Add(EditMulti,1304967,21,21)
    {
     EventCount=1
     WorkCount=3
     Width=412
     Height=172
     link(doWork1,6274890:In,[])
     link(doWork2,15037878:In,[])
     link(doWork3,13514878:In,[])
    }
    Add(LineBreak,16192586,220,21)
    {
     Caption="Data-строка"
     link(Out,1304967:onEvent1,[])
     Primary=[14591234,123,126]
    }
    Add(LineBreak,1550963,30,74)
    {
     Caption="Текст"
     link(Out,9467688:doConvert,[])
     Primary=[6274890,76,-53]
    }
    Add(LineBreak,7849412,72,83)
    {
     Caption="Активатор"
     link(Out,15158088:doClear,[(175,89)(175,87)])
     Primary=[15037878,-41,-55]
    }
    Add(StrList,15158088,197,74)
    {
     Point(doSort)
    }
    Add(Convertor,9467688,155,74)
    {
     Digits=15
     SymbolFill=" "
     link(onResult,15158088:doAdd,[])
    }
    Add(ArrayEnum,6247928,211,147)
    {
     link(onItem,5673293:doData,[])
     link(Array,15158088:Array,[])
    }
    Add(ChangeMon,5673293,253,147)
    {
     link(onData,1192009:doTrim,[])
    }
    Add(Trim,1192009,296,147)
    {
     Char=" "
     link(onTrim,14591234:In,[])
    }
    Add(Hub,15002333,155,116)
    {
     link(onEvent1,15158088:doSort,[])
     link(onEvent2,6247928:doEnum,[(190,129)(190,153)])
    }
    Add(LineBreak,1981677,99,116)
    {
     Caption="End  B"
     link(Out,15002333:doEvent1,[])
     Primary=[13514878,7,-81]
    }
  END_SDK
END_SDK
Add(DoData,14715294,294,154)
{
 link(onEventData,10720643:doWork1,[(380,160)(380,159)])
 link(Data,14976559:Size,[(300,146)(223,146)])
}
Add(Hub,11236746,161,21)
{
 link(onEvent1,7477079:doText,[])
}


Хотел поблагодарить Tad, но к сожалению не могу, так как по причине не желания дать мне рейтинг с +, участвовать в голосованиях не могу, похоже такой сдесь я один

Нет ничего более постоянного, чем временное! А хорошее, все же -- враг лучшего !
карма: 0

0
Ответов: 8921
Рейтинг: 823
#40: 2009-09-17 17:30:41 ЛС | профиль | цитата
Tad, от имени коллеги Sergoo: СПАСИБО!
карма: 19

0
Разработчик
Ответов: 26113
Рейтинг: 2126
#41: 2009-09-17 17:36:57 ЛС | профиль | цитата
Леонид, не вижу у Tad-a вещественной благодарности
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#42: 2009-09-17 18:02:17 ЛС | профиль | цитата
Tad писал(а):
Sergoo, что ты хочешь в итоге получить от программы ?
Леонид, nesco, вот спрашивал - нет ответа.
Вы случайно не экстрасенсы ?
Может кто скажет - какая конечная цель этой проги ??????
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8921
Рейтинг: 823
#43: 2009-09-17 18:54:49 ЛС | профиль | цитата
nesco, так этот топик не для Tad-а, а для Sergoo
Tad, пятьдесят тысяч строк в выпадающем списке - это выше моей логики
карма: 19

0
Разработчик
Ответов: 26113
Рейтинг: 2126
#44: 2009-09-17 19:00:27 ЛС | профиль | цитата
Леонид писал(а):
пятьдесят тысяч строк в выпадающем списке

Пешеходы про это уже спрашивали, но толком ничего не поняли, откуда и появилось
Tad писал(а):
Может кто скажет - какая конечная цель этой проги ?

Леонид писал(а):
так этот топик не для Tad-а, а для Sergoo

Я так и понял, но спасибо ты сказал за Sergoo, мне показалось, что и плюсик ты за него поставишь, он, ведь, не может

карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#45: 2009-09-17 19:24:27 правка | ЛС | профиль | цитата


Редактировалось 8 раз(а), последний 2021-06-21 04:27:10
карма: 0

0
ФорумыДелаем компонентыСортировка чисел в ComboBox ? ← Ctrl123456Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика