Вверх ↑
Ответов: 80
Рейтинг: -5
#1: 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