Подскажите команду для отброса в поле ввода не чисел

[BVnosferatu]

Сижу на Lazarus 1.4.0. Столкнулся с проблемой пустого ввода, её решил путем создания двух переменных, одна строковая, вторая считает её длину и если 0 выполняет условие, но после этого возникла другая проблема. При вводе НЕ числа, выбивает ошибку и программа крашится. Как мне, в edit1, запретить ввод НЕ чисел, или какие есть команды для этого??? Заранее спасибо.

[p51x]

Вариантов полно:
1. Оставить как у вас, только обернуть в try
2. Вместо StrToInt (или что там у вас) использовать StrToIntDef и подобные с дефолтным значением
3. Вместо StrToInt (или что там у вас) использовать TryStrToInt и подобные с контролем возврата
4. Использовать TEdit.NumbersOnly (это в новых delphi, на счет лазаруса уточните сами)
5. Использовать TMaskEdit
6. Навесить обработчики на едит https://www.askingbox.com/tip/delphi...mbers-in-tedit

[BVnosferatu]

Извините за мое незнание, хочу спросить. StrtoIntDef если вводится не число, то возвращает дефолтное значение интеджера?

[Аватар]

StrtoIntDef если вводится не число, то возвращает дефолтное значение интеджера?

А самому попробовать в коде? И хорошо бы в качестве дефолтного использовать последнее введенное правильное значение

[p51x]

https://www.freepascal.org/docs-html...rtointdef.html

Description
StrToIntDef will convert a string to an integer. If the string contains invalid characters or has an invalid format, then Default is returned.