Автор WARNER BROS. задал вопрос в разделе Другие языки и технологии
Delphi7 - Подскажите как ограничить количество цифр в Edit? и получил лучший ответ
Ответ от DiG DeePeR[гуру]
Специально сейчас проверил. Выставил Edit1.MaxLength:=5 и попробовал ввести что-либо. Хоть с клавиатуры, хоть из буфера обмена - все равно 5 символов вводит, не больше. Но! Если, например, в обработчике какой либо кнопки стоит типа: edit1.text:=edit1.text+\'1\' (кнопка "1"), то действительно вводит столько единиц, сколько раз нажата кнопка. Решить проблему можно так: if length(edit1.Text) < edit1.MaxLength then edit1.Text:=edit1.Text+\'1\'; Удачи!
Ответ от SeroS+[гуру]
искользуйте не Edit, а MaskEdit. А уже в свойствах компонента разберетесь
искользуйте не Edit, а MaskEdit. А уже в свойствах компонента разберетесь
Ответ от Ѐоман[гуру]
В Едит есть свойство МаксЛендт, в нём и устанавливается ограничение на количество знаков
В Едит есть свойство МаксЛендт, в нём и устанавливается ограничение на количество знаков
Ответ от Jurijus Zaksas[гуру]
>В Едит есть свойство МаксЛендт, в нём и устанавливается ограничение на количество знаков.. . >не получается. поставил значение 10, при вводе показывает больше.. . Будет свистеть-то!
>В Едит есть свойство МаксЛендт, в нём и устанавливается ограничение на количество знаков.. . >не получается. поставил значение 10, при вводе показывает больше.. . Будет свистеть-то!
Ответ от Ѐусский Бисмарк[гуру]
Нужно не ограничивать количество цифр, а просто удалять все лишние. Тогда никак нельзя будет это обойти. if length(s)>18 then delete(s,18,length(s)-18);
Нужно не ограничивать количество цифр, а просто удалять все лишние. Тогда никак нельзя будет это обойти. if length(s)>18 then delete(s,18,length(s)-18);
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Delphi7 - Подскажите как ограничить количество цифр в Edit?