Вверх ↑
Этот топик читают: Гость
Ответов: 3889
Рейтинг: 362
#46: 2011-09-18 21:40:51 ЛС | профиль | цитата
г. Гость. писал(а):
мыслите логично, а не как программист
вопрос не в программировании, а в знании английского языка. "number" переводится, как "номер" либо "число", если бы автор хотел ввести режим "цифры", он бы назвал его "digits". Чувствую, следующим будет "всё надо было по-русски называть"
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#47: 2011-09-18 21:42:34 ЛС | профиль | цитата
nesco писал(а):
Tad, а ничего, что мы совсем про другое говорили ?
ничего.
А ничего что тема была открыта именно по поводу того о чем я говорю ?
P.S.
Доказывать, что целых чисел, начинающихся на 0 (кроме 0, естественно), нет, не буду.
Доказывать, что "08.09.2011" не число, а строка - тоже не буду.
Это азы начальной школы.
Доказывать, что свойство:
Text (текст),
Number (положительное число),
IntegerNumber (числа от -2 147 483 648 до +2 147 483 647),
HexNumber (это и козе понятно),
FloatNumber (дробные числа, кого интересует размер - ищите в справочниках ) - всё это ТИП данных к которому будет приведен (конвертирован) введенный в EDIT обыкновенный TEXT, тоже не буду.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1376
Рейтинг: 197
#48: 2011-09-19 15:37:26 ЛС | профиль | цитата
Может кому-то ещё пригодятся "костыли" для ввода только цифр в Edit
code_25197.txt
карма: 1

0
файлы: 1code_25197.txt [1.2KB] [515]
Разработчик
Ответов: 26061
Рейтинг: 2120
#49: 2011-09-19 16:01:19 ЛС | профиль | цитата
foksov писал(а):
"костыли" для ввода только цифр в Edit

Что-то мне подсказывает, что он у тебя получился сложнее моего, не такой гибкий и кода жрет больше
------------ Дoбавленo в 16.01:
Если нужны только цифры, то мою схему можно еще упростить



Add(MainForm,5803505,217,210)
{
}
Add(Edit,15149547,287,210)
{
Left=30
Top=15
Width=130
Cursor=1
Text=""
link(onChange,8504364:doCopy,[])
}
Add(Copy,8504364,336,210)
{
Position=1
Count=1
Direction=1
link(onCopy,526770:doCompare,[])
}
Add(Delete,3326534,448,210)
{
Count=1
Direction=1
link(onDelete,15149547:doText2,[(493,216)(493,181)(273,181)(273,223)])
link(Str,15149547:Text,[(454,198)(374,198)(374,254)(293,254)])
}
Add(StrMask,526770,392,210)
{
Mask="#"
link(onFalse,3326534:doDelete,[])
}

карма: 22

0
Ответов: 3349
Рейтинг: 233
#50: 2011-09-19 18:02:35 ЛС | профиль | цитата
nesco, Введи любое неоднозначное число, переведи каретку влево и теперь по нажимай не цифры
------------ Дoбавленo в 18.02:

Add(Edit,15149547,280,343)
{
Left=30
Top=15
Width=130
Cursor=1
Text=""
DataType=1
link(onChange,6709994:doCompare,[])
}
Add(If_else,6709994,336,343)
{
Op2=String(0)
link(onTrue,15986013:doData,[])
link(Op1,15149547:Text,[(342,331)(314,331)(314,387)(286,387)])
}
Add(DoData,15986013,385,343)
{
link(onEventData,15149547:doText2,[(431,349)(431,401)(268,401)(268,356)])
}

карма: 1

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#51: 2011-09-19 18:45:43 ЛС | профиль | цитата
Ivann, а у тебя тоже 0 возникает при удалении последнего символа, попробуй набрать число и все его забоем убрать
карма: 22

0
Ответов: 3889
Рейтинг: 362
#52: 2011-09-19 18:47:59 ЛС | профиль | цитата
Не мог пройти мимо


Add(Edit,9089971,266,42)
{
Left=125
Top=110
Align=2
Text=""
Point(doReadOnly)
Point(onKeyDown)
link(onKeyDown,3614693:doCalc,[])
}
Add(MathParse,3614693,315,56)
{
DataCount=1
MathStr="1 XOR ((%1 = 46) OR (%1 = 8) OR ((%1 < 58) AND (%1 > 47))) "
ResultType=0
Point(PosErr)
Point(onError)
link(onResult,9089971:doReadOnly,[(362,62)(362,29)(254,29)(254,62)])
}



(поправил один сканкод)
карма: 1

1
Голосовали:nesco
Разработчик
Ответов: 26061
Рейтинг: 2120
#53: 2011-09-19 18:58:49 ЛС | профиль | цитата
Ivann писал(а):
Введи любое неоднозначное число, переведи каретку влево и теперь по нажимай не цифры

И в чем проблема исправить

code_25199.txt
карма: 22

0
файлы: 1code_25199.txt [746B] [454]
Ответов: 16884
Рейтинг: 1239
#54: 2011-09-19 19:00:11 ЛС | профиль | цитата
1nd1g0, с цифровой клавиатуры цифры не вводятся.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#55: 2011-09-19 19:00:49 ЛС | профиль | цитата
1nd1g0 писал(а):
Не мог пройти мимо

Была такая мысль, но что-то завяла. Влом было формулу писать
карма: 22

0
Ответов: 3889
Рейтинг: 362
#56: 2011-09-19 19:10:56 ЛС | профиль | цитата
Tad писал(а):
с цифровой клавиатуры цифры не вводятся


Уже вводятся

code_25201.txt
карма: 1

0
файлы: 1code_25201.txt [430B] [437]
Гость
Ответов: 17029
Рейтинг: 0
#57: 2011-09-19 19:15:58 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-06-24 08:47:17
карма: 0

0
Ответов: 3349
Рейтинг: 233
#58: 2011-09-19 19:16:07 ЛС | профиль | цитата
nesco писал(а):
Ivann, а у тебя тоже 0 возникает при удалении последнего символа, попробуй набрать число и все его забоем убрать

Я под столом, все никак не мог повторить это, пока по SVN не обновил
карма: 1

0
Ответов: 3889
Рейтинг: 362
#59: 2011-09-19 19:33:40 ЛС | профиль | цитата
Доработанное поле для пароля цифрами v 0.2 pre alpha, фильтрует ещё сильнее, пунктуация не пройдёт, цифровая клавиатура работает, к сожалению, на один элемент стало больше, теперь их целых два, помимо поля

Add(Edit,9089971,161,112)
{
Left=125
Top=110
Align=2
Text=""
Point(doReadOnly)
Point(onChar)
link(onChar,12454270:doConvert,[])
}
Add(MathParse,3614693,266,126)
{
DataCount=1
MathStr="1 XOR ((%1 = 46) OR (%1 = 8) OR ((%1 < 58) AND (%1 > 47))) "
ResultType=0
Point(PosErr)
Point(onError)
link(onResult,9089971:doReadOnly,[(320,132)(320,99)(149,99)(149,132)])
}
Add(Convertor,12454270,217,126)
{
Mode=3
link(onResult,3614693:doCalc,[])
}




карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#60: 2011-09-20 17:54:05 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-06-24 08:47:03
карма: 0

0
60
Сообщение
...
Прикрепленные файлы
(файлы не залиты)