Вверх ↑
Ответов: 8950
Рейтинг: 824
#1: 2005-11-26 20:55:53 ЛС | профиль | цитата
Andreych, поиск по ячейкам таблицы с остановкой и выделением найденной строки:
Add(MainForm,3762668,168,42)
{
Left=170
Top=160
Width=457
Height=282
link(onCreate,2322115:doEvent1,[(215,83)(215,55)])
}
Add(StringTable,3514730,483,175)
{
Left=10
Top=40
Width=425
Height=175
Columns=#13:Категория1=80|13:Категория2=80|13:Категория3=80|13:Категория4=80|13:Категория5=80|
Grid=0
Point(Matrix)
Point(doSelect)
}
Add(Button,1719958,336,161)
{
Left=10
Top=225
Caption="Открыть"
link(onClick,14668123:doExecute,[])
}
Add(Button,16762611,336,203)
{
Left=85
Top=225
Caption="Сохранить"
link(onClick,10631237:doExecute,[])
}
Add(ODialog,14668123,385,161)
{
link(onExecute,3514730:doLoad,[(450,167)(450,202)])
}
Add(SDialog,10631237,385,203)
{
link(onExecute,3514730:doSave,[])
}
Add(Random,11979083,378,7)
{
Min=100
Max=199
link(onRandom,4241064:doRandom,[])
}
Add(FormatStr,1734059,462,98)
{
DataCount=5
Mask="%1;%2;%3;%4;%5"
link(onFString,3514730:doAdd,[(510,104)(510,152)(466,152)(466,181)])
link(Str1,11979083:Random,[(468,56)(384,56)])
link(Str2,4241064:Random,[(475,48)(433,48)])
link(Str3,2462477:Random,[(482,69)(482,69)])
link(Str4,2277052:Random,[(489,49)(531,49)])
link(Str5,3367657:Random,[(496,55)(580,55)])
}
Add(Random,3367657,574,7)
{
Min=100
Max=199
link(onRandom,1734059:doString,[(616,13)(616,90)(452,90)(452,104)])
}
Add(Random,2277052,525,7)
{
Min=100
Max=199
link(onRandom,3367657:doRandom,[])
}
Add(Random,2462477,476,7)
{
Min=100
Max=199
link(onRandom,2277052:doRandom,[])
}
Add(Random,4241064,427,7)
{
Min=100
Max=199
link(onRandom,2462477:doRandom,[])
}
Add(Hub,2322115,252,49)
{
OutCount=7
link(onEvent1,11979083:doRandomize,[(366,55)(366,20)])
link(onEvent2,4241064:doRandomize,[(418,62)(418,20)])
link(onEvent3,2462477:doRandomize,[(469,69)(469,20)])
link(onEvent4,2277052:doRandomize,[(515,76)(515,20)])
link(onEvent5,3367657:doRandomize,[(565,83)(565,20)])
link(onEvent6,9239650:doFor,[(303,90)(303,13)])
link(onEvent7,11521442:doEvent1,[(431,97)(431,328)])
}
Add(For,9239650,322,7)
{
End=99
link(onEvent,11979083:doRandom,[])
}
Add(MatrixRW,6911534,497,322)
{
link(onRead,11461258:doCompare,[])
link(Matrix,3514730:Matrix,[])
link(X,14742685:Count,[(517,309)(486,309)(486,377)(132,377)])
link(Y,14269152:Data1,[])
}
Add(Edit,7466538,560,182)
{
Left=105
Top=10
Text="149"
DataType=2
}
Add(InfoTip,6692828,238,-21)
{
Info=#28:Формирование таблицы 100 х 5|
Width=400
Height=158
}
Add(GetData,14269152,518,266)
{
link(Data,15479249:Count,[(524,259)(479,259)(479,373)(293,373)])
}
Add(Hub,11521442,441,322)
{
InCount=2
OutCount=1
link(onEvent1,6911534:doRead,[])
}
Add(If_else,11461258,553,322)
{
link(onTrue,15857144:doEvent1,[])
link(Op2,7466538:Text,[])
}
Add(Hub,15857144,609,322)
{
OutCount=3
link(onEvent1,1060781:doStop,[(651,328)(651,295)(63,295)(63,335)])
link(onEvent2,7372812:doData,[])
link(onEvent3,7137714:doNext,[(649,342)(649,384)])
}
Add(Counter,14742685,126,329)
{
Max=4
link(onNext,10415043:doEvent1,[])
}
Add(Thread,1060781,77,322)
{
Delay=0
BusyEvent=1
link(onSyncExec,14742685:doNext,[])
}
Add(Memory,10413066,238,406)
{
Default=Integer(0)
}
Add(Hub,10415043,168,329)
{
OutCount=3
link(onEvent1,15681831:doCompare,[])
link(onEvent2,10413066:doValue,[(218,342)(218,412)])
link(onEvent3,11521442:doEvent2,[(212,349)(212,391)(429,391)(429,335)])
}
Add(If_else,15681831,238,329)
{
Type=1
link(onTrue,15479249:doNext,[])
link(Op2,10413066:Value,[(251,319)(230,319)(230,445)(244,445)])
}
Add(Counter,15479249,287,329)
{
link(onNext,6235292:doCompare,[])
}
Add(If_else,6235292,336,329)
{
link(onTrue,15022912:doMessage,[])
link(Op2,3514730:Count,[(349,275)(489,275)])
}
Add(Hub,5159207,77,378)
{
OutCount=3
link(onEvent1,15479249:doReset,[(278,384)(278,349)])
link(onEvent2,14742685:doReset,[(117,391)(117,349)])
link(onEvent3,7137714:doReset,[])
}
Add(Button,11870403,21,322)
{
Left=10
Top=10
Width=85
Caption="Искать далее"
link(onClick,1060781:doStart,[])
}
Add(Message,15022912,378,329)
{
Caption="Поиск закончен"
link(onMessage,5159207:doEvent1,[(418,335)(418,370)(67,370)(67,384)])
link(Message,2475454:Value,[(384,304)(826,304)(826,428)(769,428)])
}
Add(DoData,7372812,658,329)
{
link(onEventData,3514730:doSelect,[(699,335)(699,246)(473,246)(473,216)])
link(Data,14269152:Data2,[(664,314)(531,314)])
}
Add(Memory,2475454,763,378)
{
Default=Integer(0)
}
Add(Counter,7137714,658,378)
{
link(onNext,14274961:doStrCat,[])
}
Add(StrCat,14274961,714,378)
{
Str2=" строк найдено"
link(onStrCat,2475454:doValue,[])
link(Str1,7137714:Count,[(720,368)(702,368)(702,420)(664,420)])
}
Add(Button,3668674,112,63)
{
Left=330
Top=225
Caption="Выход"
link(onClick,3762668:doClose,[])
}
Add(InfoTip,7718029,546,147)
{
Info=#8:Что ищем|
Height=74
}
Add(InfoTip,1394951,14,252)
{
Info=#35:Система поиска без применения цикла|
HAlign=0
Width=855
Height=207
}
Add(InfoTip,7852284,119,301)
{
Info=#15:Счётчик колонок|
Width=43
Height=74
}
Add(InfoTip,15564968,280,301)
{
Info=#13:Счётчик строк|
Width=50
Height=74
}
Add(InfoTip,1615481,644,364)
{
Info=#29:Счётчик числа найденных строк|
Width=176
Height=67
}
без использования циклов.
карма: 19

0