Вверх ↑
Этот топик читают: Гость
Ответов: 1536
Рейтинг: 176
#1: 2012-02-03 08:54:03 ЛС | профиль | цитата
Да, сложилась такая ситуация, когда размер имеет значение. Я использовал счётчик CounterEx, значение 32767 стало в схеме не достаточно, необходимо значение раза в 10 больше, но вот, как это сделать, что-то я не понимаю. Я даже пробовал спародировать счётчик при помощи других элементов, но выше указанного результата, что-то никак.
------------ Дoбавленo в 08.38:
вопрос снимаю. Видимо проблема в другом. Попробую разобраться. Что-то я заработался.
------------ Дoбавленo в 08.54:
Вот собственно проблема в схеме. Упирается в число 32767 и сброс.
Add(MainForm,2953706,126,84)
{
Width=820
Height=513
link(onCreate,14582792:doFor,[])
}
Add(Button,14330855,112,154)
{
Left=30
Top=5
Caption="+"
link(onClick,13557364:doNext,[(160,160)(160,195)])
}
Add(Button,11724686,112,196)
{
Left=100
Top=5
Caption="-"
link(onClick,13557364:doPrev,[])
}
Add(Label,16315437,455,210)
{
Left=175
Top=10
link(Text,8805433:Position,[])
}
Add(Memo,8805433,427,112)
{
Left=10
Top=30
Width=785
Height=436
Font=[Consolas,14,0,0,204]
Ctl3D=1
ScrollBars=2
ReadOnly=0
Point(doSetSelStart)
Point(doSetSelLength)
Point(onMouseUp)
Point(SelText)
Point(Position)
Point(doEnsureVisible)
link(onMouseUp,65812:doEvent2,[(500,125)(500,251)(240,251)(240,202)])
}
Add(For,14582792,196,98)
{
End=50000
link(onEvent,8784738:doAdd,[(250,104)(250,83)])
link(onStop,9606867:doSum,[(250,111)(250,139)])
}
Add(Hub,65812,252,189)
{
InCount=2
OutCount=4
link(onEvent1,8805433:doSetSelStart,[(332,195)(332,160)])
link(onEvent2,8491422:doData,[(350,202)(350,167)])
link(onEvent3,8805433:doEnsureVisible,[(404,209)(404,174)])
link(onEvent4,16315437:doText,[])
}
Add(CounterEx,13557364,175,189)
{
Max=500000
Default=32766
Point(doPrev)
link(onNext,65812:doEvent1,[])
}
Add(StrList,8784738,273,77)
{
}
Add(DoData,8491422,364,161)
{
Data=Integer(1)
link(onEventData,8805433:doSetSelLength,[])
}
Add(ArraySum,9606867,287,133)
{
Delimiter=" "
link(onSum,8805433:doText,[])
link(Array,8784738:Array,[])
}


карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Разработчик
Ответов: 26161
Рейтинг: 2127
#2: 2012-02-03 08:58:06 ЛС | профиль | цитата
ser_davkin писал(а):
Я использовал счётчик CounterEx, значение 32767 стало в схеме не достаточно, необходимо значение раза в 10 больше

Не понял, кто сказал, что 32767 предел Предел у счетчика -- 2147483647
code_26745.txt
карма: 22

0
файлы: 1code_26745.txt [343B] [273]
Ответов: 3889
Рейтинг: 362
#3: 2012-02-03 09:00:09 ЛС | профиль | цитата
ser_davkin писал(а):
Упирается в число 32767 и сброс.

Пардон, все 50000 у меня распечатала Ваша схема, и можно ползти далеко за 32767 кнопками, что я делаю не так?
карма: 1

0
Разработчик
Ответов: 26161
Рейтинг: 2127
#4: 2012-02-03 09:03:42 ЛС | профиль | цитата
ser_davkin писал(а):
Упирается в число 32767 и сброс

Да нет там никакого сброса. Поставь Debug и посмотри -- счетчик спокойно считает дальше
------------ Дoбавленo в 09.03:
1nd1g0 писал(а):
что я делаю не так?

Я тоже не понял прикола
карма: 22

0
Ответов: 8927
Рейтинг: 823
#5: 2012-02-03 09:35:04 ЛС | профиль | цитата
nesco, да нет там никакого прикола, коллега ser_davkin сам установил по умолчанию 32766, следующее число -- 32767 и никакое другое
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#6: 2012-02-03 10:05:29 ЛС | профиль | цитата
ser_davkin, а так ?
code_26746.txt
nesco писал(а):
Я тоже не понял прикола
Прикол в мышке. У меня такая-же, у которой при нажатии указатель прыгает, есть в коллекции.
ser_davkin, мышку меняй.
------------ Дoбавленo в 10.05:
Леонид писал(а):
сам установил по умолчанию 32766
Леонид, при чём тут это ? Всё в схеме ser_davkin отлично работает.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_26746.txt [1.4KB] [183]
Ответов: 1536
Рейтинг: 176
#7: 2012-02-03 19:16:52 ЛС | профиль | цитата
Млин, коммуняки достали (единая россия). В России морозы, у всех батареи расплылись, физединицы им не хватало. Решили закоренелого седака запрячь. Вопрос бросил и меня выдернули из сети. nesco, Tad, при всём уважении, не могу скатать ваши примеры или проблемы снова у меня? (браузер выдает страницу ошибки)
------------ Дoбавленo в 17.04:
Э-э-х, пойду тестировать на другом компе (счастье, что он есть!)
------------ Дoбавленo в 19.16:
Млин, такая же хрень. Ничего не пойму. Почему у вас без проблем а у меня на обоих компах. И примеры ваши не открываются. Подтвердите кто, открываются у кого примеры выложенные nesco, Tad-ом, или нет?
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#8: 2012-02-03 19:35:49 ЛС | профиль | цитата
ser_davkin, заходи на форум по этой ссылке и всё будет ОК http://forum.d2h.ru/
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1536
Рейтинг: 176
#9: 2012-02-04 11:16:34 ЛС | профиль | цитата
Tad писал(а):
заходи на форум по этой ссылке и всё будет ОК http://forum.d2h.ru/
спасибо, сработало!
1nd1g0 писал(а):
Пардон, все 50000 у меня распечатала Ваша схема, и можно ползти далеко за 32767 кнопками, что я делаю не так?
Леонид писал(а):
да нет там никакого прикола, коллега ser_davkin сам установил по умолчанию 32766, следующее число -- 32767 и никакое другое
Выкладываю видео ~1.3mb Может подскажите, где копать.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 1328
Рейтинг: 69
#10: 2012-02-06 01:51:20 ЛС | профиль | цитата
ser_davkin, счетчик не причем, попробуй заменить Memoна RichEdit ;-)
карма: 2

0
Ответов: 1536
Рейтинг: 176
#11: 2012-02-06 16:55:46 ЛС | профиль | цитата
Konst, да, я согласен, что счётчик не причём, сгоряча я сетовал на него. Позже я выяснил, что выделенное значение после значения курсора 32767 при компиляторе delphi4 в точке Position в элементе Memo - всегда равно 26751 (в моём случае), а при компиляторе FPC и Position курсора Pos=Pos+1, при пересечении позиции 32767, в точке seltext всегда равно пустоте, всякий раз. Конечно, данное недоразумение можно обойти при помощи разбиении массива на определённые блоки, чтобы курсор не пересекал позицию массива 32767. Просто, хотелось выяснить для себя, нельзя ли исправить данный баг или он действительно имеет ограничение.
Что касается RichEdit, то я разумеется пробовал работать и с ним, но и в нем свои капризы. При установки свойства в ReadOnly (мне запись не нужна), то вводимые значения с клавиатуры блокировались. Значения с клавиатуры поступали с компонента Mainform точки onChar, сравнивались, и в случае true перемещали позицию курсора в Memo pos=pos+1 и снова выделяли один литер для сравнения. Как-то так. Своеобразный клавиатурный тренажёр.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 1536
Рейтинг: 176
#12: 2012-02-14 12:30:25 ЛС | профиль | цитата
Возник новый вопрос. В компоненте RichEdit в точке SelText снимается лишнее значение. Как с этим бороться я знаю, но тем не менее баг на лицо. Не порядок.
Add(MainForm,8416873,196,98)
{
Width=611
Height=513
link(onCreate,14582792:doFor,[])
}
Add(Button,14330855,182,168)
{
Left=30
Top=5
Caption="+"
link(onClick,13557364:doNext,[(230,174)(230,209)])
}
Add(Button,11724686,182,210)
{
Left=100
Top=5
Caption="-"
link(onClick,13557364:doPrev,[])
}
Add(Label,16315437,560,217)
{
Left=175
Top=10
}
Add(For,14582792,266,112)
{
End=100
link(onEvent,8784738:doAdd,[(320,118)(320,97)])
link(onStop,9606867:doSum,[(320,125)(320,153)])
}
Add(Hub,65812,322,203)
{
InCount=2
OutCount=3
link(onEvent1,7805438:doSetSelStart,[(462,209)(462,174)])
link(onEvent2,8491422:doData,[])
link(onEvent3,4411432:doString,[])
}
Add(CounterEx,13557364,245,203)
{
Point(doPrev)
link(onNext,65812:doEvent1,[])
}
Add(StrList,8784738,343,91)
{
}
Add(DoData,8491422,385,210)
{
Data=Integer(1)
link(onEventData,7805438:doSetSelLength,[(471,216)(471,181)])
}
Add(ArraySum,9606867,357,147)
{
Delimiter=" "
link(onSum,7805438:doText,[])
link(Array,8784738:Array,[])
}
Add(RichEdit,7805438,476,133)
{
Left=10
Top=35
Width=570
Height=425
Font=[Consolas,14,0,0,204]
TabOrder=-1
Ctl3D=0
WinStyle=2
Layout="vert"
HeightScale=100
ScrollBars=2
ReadOnly=0
CanDragOle=1
Point(doSetSelStart)
Point(doSetSelLength)
Point(onMouseUp)
Point(SelText)
Point(Position)
link(onMouseUp,9785405:doData,[(548,146)(548,300)(235,300)(235,258)])
}
Add(DoData,9785405,245,252)
{
link(onEventData,65812:doEvent2,[(299,258)(299,216)])
link(Data,13557364:Count,[])
}
Add(Debug,3715830,497,196)
{
link(Data,7805438:SelText,[])
}
Add(FormatStr,4411432,497,217)
{
@Hint=#15:Для наглядности|
DataCount=1
Mask="%1"
link(onFString,16315437:doText,[])
link(Str1,3715830:Var,[])
AddHint(64,-35,103,13,@Hint)
}


карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 3889
Рейтинг: 362
#13: 2012-02-14 12:37:31 ЛС | профиль | цитата
ser_davkin писал(а):
лишнее значение

На словах - в чём именно проблема, в знаке процента
карма: 1

0
Ответов: 1536
Рейтинг: 176
#14: 2012-02-14 12:43:02 ЛС | профиль | цитата
1nd1g0,
ser_davkin писал(а):
Как с этим бороться я знаю, но тем не менее баг на лицо

карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 8927
Рейтинг: 823
#15: 2012-02-14 12:58:57 ЛС | профиль | цитата
ser_davkin, у меня хоть один, хоть десять -- ровно столько и выделяется и столько же на точке code_26867.txt
карма: 19

0
файлы: 1code_26867.txt [1.4KB] [213]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)