|
#1
|
|||
|
|||
Edit & тысяча
Приветствую
понимаю что вопрос тревиальный и все подобное но заклинило на таком моменте ?"на форме есть компонент Edit в него вводятся числа если число меньше 1000 воспринимает на ура а если 1 000 выбивает прогруму при считывании функции inttostr пишет мол у вас там текст а не интеджер"? подскажите как исправить сию проблему в настройках компонента я что то не нашел неужели код прописывать на события потому как я понимаю он там видит пробел и считает содержимое текстом |
#2
|
|||
|
|||
Цитата:
|
#3
|
|||
|
|||
ох хо хо
понял спасибо за ответ)) |
#4
|
|||
|
|||
самый простой способ:
Код:
var str: string; d: integer; i: integer; begin str:= ''; for i:= 0 to Length(Edit1.text) do if Edit1.text[i] in ['0'..'9'] then str := str+edit1.text[i]; d := strtoint(str); end; |
#5
|
|||
|
|||
вот этого и надо было спасибо огромное
|
#6
|
|||
|
|||
тут есть минус в том что даже если введешь:
jwhdfb23y89r7rj то он выдаст число 23897. С одной стороны плюс с другой минус.. но я не думаю что кому-то это надо будет если будет относиться к твоей программе всерьез Ввод в поле обрабатывается например в KeyPress (для ввода только цифр(ы) например и пробела(ов)). |
#7
|
|||
|
|||
Спасибо я прописал код в теле программы при считывании с этого едита все ровно работает))
|