Вверх ↑
Этот топик читают: Гость
Ответов: 758
Рейтинг: 112
#1: 2015-12-18 22:16:07 ЛС | профиль | цитата
Доброго времени суток
Помогите сделать поиск в MTStrTbl по кругу
То есть - если мы находимся на последней найденной строке и снова нажимаем FindNext,
то в результате что б выбралась строка с первым найденным в начале
Add(MainForm,2953706,301,70)
{
Width=157
Height=163
link(onCreate,13830893:doFor,[])
}
Add(MTStrTbl,4558925,497,35)
{
@Color=255
Left=75
Top=10
Height=110
Name="m"
Columns=#2:ст|
}
Add(Button,4095437,392,175)
{
Left=10
Top=35
Caption="next"
link(onClick,10296630:doEvent1,[])
}
Add(MST_DB,2104536,497,84)
{
@Color=255
MSTControl="m"
}
Add(For,13830893,357,84)
{
Start=1
End=3
link(onEvent,15330499:doFor,[])
}
Add(For,15330499,406,84)
{
Start=1
End=3
link(onEvent,13751101:doAdd,[])
}
Add(MT_AddData,13751101,455,84)
{
Count=1
link(onAdd,2104536:doAddRow,[])
link(Data1,15330499:Position,[(461,72)(447,72)(447,126)(412,126)])
}
Add(MST_FindText,285319,497,168)
{
@Color=255
MSTControl="m"
Point(doSetFocus)
Point(doEnsureVisible)
link(onFindText,8193062:In,[])
}
Add(Button,3889797,392,140)
{
Left=10
Top=10
Caption="find"
Data=Integer(2)
link(onClick,212589:doEvent1,[])
}
Add(Hub,10296630,434,175)
{
link(onEvent1,285319:doFindNext,[])
link(onEvent2,15826261:doEvent1,[])
}
Add(LineBreak,1357736,259,70)
{
link(Out,2953706:doCaption,[])
Primary=[8193062,287,98]
}
Add(Hub,15826261,469,182)
{
InCount=2
link(onEvent1,285319:doSetFocus,[])
link(onEvent2,285319:doEnsureVisible,[])
}
Add(Hub,212589,434,140)
{
link(onEvent1,285319:doFindText,[(472,146)(472,174)])
link(onEvent2,15826261:doEvent2,[(458,153)(458,195)])
}
карма: 1

0
Ответов: 2313
Рейтинг: 679
#2: 2015-12-19 01:36:19 ЛС | профиль | цитата
Чтото гдето както так: code_36660.txt
карма: 11

1
файлы: 1code_36660.txt [2.2KB] [410]
Голосовали:miver
Гость
Ответов: 17029
Рейтинг: 0
#3: 2015-12-19 02:44:32 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2021-05-21 12:35:32
карма: 0

0
Разработчик
Ответов: 26212
Рейтинг: 2138
#4: 2015-12-19 04:24:20 ЛС | профиль | цитата
А че все так сложно

Add(MainForm,16651951,287,147)
{
Width=157
Height=163
link(onCreate,13830893:doFor,[])
}
Add(MTStrTbl,4558925,546,161)
{
@Color=255
Left=75
Top=10
Height=110
Name="m"
Columns=#2:ст|
}
Add(MST_DB,2104536,483,161)
{
@Color=255
MSTControl="m"
}
Add(For,13830893,343,161)
{
Start=1
End=3
link(onEvent,15330499:doFor,[])
}
Add(For,15330499,392,161)
{
Start=1
End=3
link(onEvent,13751101:doAdd,[])
}
Add(MT_AddData,13751101,441,161)
{
Count=1
link(onAdd,2104536:doAddRow,[])
link(Data1,15330499:Position,[(447,149)(433,149)(433,203)(398,203)])
}
Add(MST_FindText,285319,441,329)
{
@Color=255
MSTControl="m"
Point(doSetFocus)
Point(doEnsureVisible)
link(onFindText,1518578:doCase,[])
link(StartRow,16537843:Result,[])
}
Add(Button,3889797,266,329)
{
Left=10
Top=10
Caption="find"
link(onClick,5198235:doWork2,[])
}
Add(Hub,212589,392,329)
{
OutCount=3
link(onEvent1,285319:doFindText,[])
link(onEvent2,285319:doSetFocus,[(431,342)(431,349)])
link(onEvent3,285319:doEnsureVisible,[(424,349)(424,356)])
}
Add(Math,16537843,448,280)
{
Op2=1
ResultType=0
Point(doClear)
link(onResult,11295140:doCompare,[])
}
Add(Hub,8810322,574,329)
{
InCount=2
link(onEvent1,16537843:doOperation,[(599,335)(599,272)(438,272)(438,286)])
link(onEvent2,16651951:doCaption,[(606,342)(606,230)(277,230)(277,153)])
}
Add(Case,1518578,490,329)
{
Value=Integer(-1)
DataOnTrue=Integer(-1)
link(onNextCase,8810322:doEvent1,[])
link(onTrue,8206052:doEvent1,[])
}
Add(Hub,8206052,539,336)
{
link(onEvent1,8810322:doEvent2,[])
link(onEvent2,6130666:doDeferredEvent,[(564,349)(564,363)])
}
Add(DoData,11916831,343,329)
{
Data=Integer(2)
link(onEventData,212589:doEvent1,[])
}
Add(HubEx,5198235,315,329)
{
link(onEvent,11916831:doData,[])
}
Add(DeferredEvent,6130666,574,357)
{
link(onDeferredEvent,5198235:doWork3,[(613,363)(613,398)(319,398)])
}
Add(If_else,11295140,497,280)
{
Type=2
link(onTrue,16537843:doClear,[(536,286)(536,321)(438,321)(438,293)])
link(Op2,285319:EndIdx,[(510,264)(384,264)(384,369)(468,369)])
}

карма: 22

1
Голосовали:miver
Ответов: 16884
Рейтинг: 1239
#5: 2015-12-19 07:48:18 ЛС | профиль | цитата
nesco писал(а):
А че все так сложно
Вот, на просторах инета, попался алгоритм вычисления возраста:
1. Запиши размер своей обуви, округлённый до целого в любую сторону.
2. Допиши два нуля
3. Вычти из полученного числа свой год рождения
4. Прибавь текущий год
Последние две цифры - твой возраст.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)